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20.  Abstract  (Contd) 


>  1.  It  calculates  the  layer-by-layer  integrated  absorber  amounts  and 

density-weighted  pressure  and  temperature  for  an  arbitrary  slant  path  through 
the  atmosphere. 


2.  It  assumes  a  spherically  symmetric  atmosphere  with  exponential 
profiles  of  density  and  refractivity  between  layer  boundaries. 


3.  It  allows  a  variety  of  options  for  specifying  the  slant  path. 


4.  It  includes  six  representative  atmospheric  profiles  of  pressure  and 
temperature,  and  of  density  for  the  gases  I^O.  CQk,  q^,  E^O,  CO.  C% 
and  C^and  has  provision  for  user-supplied  profiles  of  up  to  20  gases. 


E>.  The  output  layering  may  either  be  generated  internally  or  supplied 
by  the  user. 


6.  It  is  portable  to  32  bit  word  computers  in  single  precision  and  com 
patible  with  both  ANSI  Standard  FORTRAN  66  and  77. 


7.  It  is  modular  and  easily  modified  to  suit  the  users’  particular  needs. 
A  discussion  of  atmospheric  profile  data  and  a  survey  of  the  literature  are 
included  in  appendices. 
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Air  Mass  Computer  Program  for  Atmospheric 
Transmittance/Radiance  Calculation:  FSCATM 

1.  INTRODUCTION 

Calculations  of  atmospheric  transmittance  and  radiance  require  knowledge  of 
the  amount  and  distribution  of  the  absorbing  gases  along  ihe  optical  path.  The 
integrated  amount  of  gas  along  a  path  compared  to  the  amount  for  a  vertical  path 
from  ground  to  space  is  generally  referred  to  as  "air  mass".  Under  some  circum¬ 
stances,  air  mass  qan  be  calculated  simply  by  assuming  a  plane  parallel  atmos¬ 
phere  and  using  the  secant  approximation.  For  other  cases,  for  example,  large 
zenith  angles  or  tangent  paths,  curyature  and.  refraction  must  be  taken  into  account, 
requiring  a  more  elaborate  integration  along  the  path. 

This  report  presents  the  Fortran  program  FSCATM,  which  calculates  the  inte¬ 
grated  absorber  amounts  for  an  arbitrary  slant  path  through  the  atmosphere,  in¬ 
cluding  the  effects  of  both  curvature  and  refraction.  FSCATM  is  specifically  de¬ 
signed  to  create  the  atmosphere  inputs  to  the  AFGL  line-by-line  atmospheric 
transmittance  and  radiance  program  FASCODE, 1  but  the  program  is  general  enough 
to  be  useful  to  others  working  in  the  field  of  infrared  radiative  transfer  in  the 
atmosphere. 


(Received  for  publication  1  March  1983) 

1.  Clough,  S.A.,  Kneizys,  F.X.,  Rothman,  L.  S. ,  and  Gallery,  W.  O.  (1981) 
Atmospheric  spectral  transmittances  and  radiance:  FASCOD1B,  SPIE, 
Atmospheric  Transmission  277:152-166. 
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Among  the  features  of  FSCATM  are: 

1.  It  calculates  the  layer-by-layer  integrated  absorber  amoums  and  density- 
weighted  pressure  and  temperature  for  an  arbitrary  slant  path  through  the  atmos¬ 
phere, 

2.  It  assumes  a  spherically  symmetric  atmosphere  with  exponential  profiles 
of  density  and  refractivity  between  layer  boundaries, 

3.  It  allows  a  variety  of  options  for  specifying  the  slant  path, 

4.  It  includes  six  representative  atmospheric  profiles  of  pressure  and  tem¬ 
perature,  and  of  density  for  the  gases  HgO,  CO 2,  Og,  N90,  CO,  CHg  and  02>  and 
has  provision  for  user-supplied  profiles  of  up  to  20  gases, 

5.  The  output  layering  may  either  be  generated  internally  or  supplied  by  the 
user, 

6.  It  is  portable  to  32  bit  word  computers  in  single  precision  and  compatible 
with  both  ANSI  Standard  FORTRAN  66  and  77,  and 

7.  It  is  modular  and  easily  modified  to  suit  the  users'  particular  needs. 

As  distributed  FSCATM  is  a  subroutine  called  by  FASCODE.  However,  it 

may  very  easily  be  converted  to  a  self-contained  program  (see  Section  3.  4  for  de¬ 
tails),  References  to  FSCATM  in  this  report  will  assume  that  it  is  being  run  in 
the  stand-alone  mode.  FSCATM  is  available  as  part  of  the  FASCOD1C  package 
(see  Section  3.  5  for  details). 

Section  2  of  this  report  provides  background  on  the  calculation  of  air  mass, 
including  atmospheric  refraction,  the  numerical  algorithm  used  here,  and  some 
examples  of  the  effects  of  curvature  and  refraction  on  air  mass.  Section  3  docu¬ 
ments  the  progr  am  FSCATM,  including  usage  and  sample  input  and  output. 

Appendix  A  discusses  the  six  standard  atmospheric  pruules  included  in 
FSCATM  and  describes  other  sources  of  atmospheric  profile  data.  Appendix  B 
describes  the  formula  for  the  index  of  refraction  of  air  used  in  FSCATM.  Finally, 
Appendix  C  gives  a  brief  survey  of  the  literature  on  air-mass  calculation  and 
atmospheric  refraction. 

2.  AIR  MASS 
2.1  Definitions 

The  integrated  absorber  amount,  n.,  along  a  slant  path  through  the  atmosphere 
is  given  by 

m  =  j  pds  ,  (I) 
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where  p  is  the  mass  or  number  density  of  the  gas  and  ds  is  the  element  of  length 

along  the  path  (m  is  also  sometimes  referred  to  as  the  "column  density").  For 

vertical  path  from  ground  to  space  for  the  U.  S.  Standard  Atmosphere  19G2,  m  for 

25  -2 

the  total  air  density  is  2. 15  X  10  molecules  cm  =  m  .  This  quantity  m  is 

o  o 

sometimes  referred  to  as  "one  air  mass".  The  term  air  mass  is  somewhat 
ambiguous;  in  this  report  the  term  air  mass  for  a  particular  path  will  refer  to  the 
relative  air  mass  or  m/mo<  For  example,  the  air  mass  for  a  path  from  ground 
to  space,  where  the  zenith  angle  at  the  ground  is  90.  0°,  is  38. 1.  The  term  air 
mass  applies  specifically  to  total  amount  of  air  along  the  path.  For  non-uniformly 
mixed  gases,  such  as  HgO  or  Og,  the  relative  amount  of  gas  along  a  slant  path 
compared  to  a  vertical  path  may  differ  greatly  from  the  (total)  air  mass. 

These  calculations  assume  a  spherically-symmetric  layered  atmosphere  with 
the  pressure,  temperature,  and  absorbing  gas  densities  defined  at  a  suitable  num¬ 
ber  of  layer  boundaries.  For  any  path  through  the  atmosphere,  the  integrated 
absorber  amounts,  m,  are  calculated  individually  for  each  layer  and  summed 
over  the  layers.  This  discussion  will  be  confined  to  the  calculation  for  a  single 
layer. 

Figure  1  illustrates  the  geometry  of  a  path  through  a  single  layer.  The  layer 
is  bounded  by  the  radii  r  and  r2>  a  and  $  are  the  zenith  angles  at  r^  and  r2  re¬ 
spectively,  s  is  the  curved  path  length,  fl  is  the  earth  centered  angle,  and  <p  is  the 
bending  along  the  path.  The  radius  of  the  earth  is  r  while  the  radius  to  any  point 
is  r.  The  height  z  above  the  lower  boundary  equals  r  -  rg. 

The  pressure  P,  temperature  T,  and  absorbing  gas  density  p  are  given  at  r^^ 
and  r2.  Inside  the  layer,  temperature  is  interpolated  linearly,  while  pressure 
and  density  are  assumed  to  follow  an  exponential  distribution.  For  pressure, 


P(z)  =  exp  [-z/Hp] 

(2) 

Hp  =  -(Az)/ln(P2/P1)  , 

(3) 

where  Hp  is  called  the  pressure  scale  height  and  A z  is  r2  -  r^.  Equation  (2)  is 
exact  for  an  isothermal  layer  and  is  an  excellent  approximation  for  a  non-isothermal 
layer  if  the  layer  is  thin  compared  to  a  scale  height. 

Similarly,  the  density  is  given  by: 


(4) 


P  (z)  =  p  x  exp  [  -z /Hp  j 
H p  =  -Az /« n(p2/p  x)  . 


(5) 
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Figure  1.  Geometry  of  the  Refracted  Path  Through  a 
Single  Layer 


For  a  uniformly  mixed  gas  in  an  isothermal  layer,  Eq.  (4)  is  again  exact  and  for  a 
non-isothermal  layer  is  a  good  approximation.  For  a  non-untformly  mixed  gas, 
the  density  will  not  follow  an  exponential  distribution.  In  such  cases  it  is  neces¬ 
sary  to  make  the  spacing  between  boundaries  small  enough  so  that  the  calculated 
density  between  layers  does  not  depend  significantly  upon  the  particular  interpola¬ 
tion  scheme  used. 

The  integrated  amount  m  of  the  absorbing  gas  for  the  layer  can  be  rewritten 
from  Eq.  (1)  as 


* 

=  /  P(z> 


From  small  zenith  angles,  ds/dz  Is  essentially  constant  over  the  layer  and  equals 
sec  e,  where  $  is  the  incident  angle  of  the  path  at  z  (see  Figure  2).  In  this  case, 
Eq.  (6)  can  be  approximated  as: 
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Figure  2.  The  Differential  Path 
Quantities  at  a  Point 
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m  =  sec  9  J  P  dz  .  (7) 

1 

This  approximation  is  the  same  as  assuming  a  plane  parallel  atmosphere.  The 
vertical  integral  of  the  density  has  a  particularly  simple  analytic  solution  when  the 
profile  is  exponential: 

2 

f  P  dz  =  H  (pj  -  p2)  .  (8) 

1 

For  larger  zenith  angles  where  the  earth's  curvature  is  important  but  where 
refraction  is  still  not  significant,  Eq.  (6)  can  be  solved  analytically  using  the 
Chapman  functions.  (See  Appendix  C  for  references  to  the  Chapman  functions. ) 

For  even  larger  zenith  angles,  refraction  must  be  taken  into  account.  In  this  later 
case  the  layer  can  be  divided  into  a  number  of  sublayers  bounded  by  z^,  z2,  •  •  •  Zj, 
which  need  not  be  uniformly  spaced.  The  spacing  between  sublayers 
Az.  =  z.  +  1  -  z.  is  determined  by  the  requirement  that  the  integral  in  Eq.  (6)  can 

J  J  J 

be  adequately  represented  by  the  sum  over  the  sublayers  j: 


where 


3+1 

Pj"=  ^7  /  Pdz  =  -^-Hp(o(Zj)-p<z. +  1)) 

J  *  J 


ds  _  1  f 

327  =  az.  J 

j  j  . 


(10) 


(11) 


“j  *  Vt 


?'he  "‘•'oblem  nrw  is  to  determine  the  number  and  spacing  of  the  sublayers  and  the 
path  length  As,.  onyh  each  sublayer,  including  the  effects  of  refraction.  This 

j 

problem  i«  disr  >S£.  J  in  the  next  section. 

In  addition  to  the  ibsorber  amount,  atmospheric  transmittance  calculations 
require  aM  efit.  'tive  pressure  and  temperature  for  a  layer.  The  effective  pres¬ 
sure  f  •»  requi  '-'d  t'-  ’alculate  the  halfwidth  and  the  effective  temperature  is  used 
to  f.-Oculate  th  '.no  in.-'r«:ty  halfwidth,  and,  in  emission,  blackbody  source 
fu.-.euon  for  a  layer,  1  !’r  effective  values  are  those  that  make  the  absorption 
ani/o-  eir.  issitn  of  an  -ruivalent  homogeneous  layer  equal  to  that  of  the  non- 
homogeneous  layer.  There  is  no  single  definition  of  the  effective  pressure  or 
temperature:  the  effective  values  depend  upon  many  factors  such  as  the  path,  the 
density  distribution,  and  the  spectral  region,  and  will  in  general  be  different  for 
different  absorbing  A  soi.  The  most  generally  applicable  definition,  however,  is 
the  density  weighted  average: 


P  =  J  Pp*ds// p^ds 


/  Tp*ds// , 


*. 

p  ds  , 


where  p  is  the  total  air  density.  For  a  uniformly  mixed  gas  with  no  temperature 
dependence  in  the  line  Intensities,  the  mean  pressure  given  by  Eq.  (13)  is  essen¬ 
tially  the  Curtis -Godson  approximation. 

The  effective  p  ’ssure  P  and  temperature  T  are  calculated  in  a  way  similar 
to  the  absorber  amount  in  Eq.  (9),  using 
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Pm*  =  /  Pp*ds 


Tm*  =  / Tp*ds 
m*  =  /p*ds  = 


=  ^Sziy*  P(z)p*(z)dz 
1  I 

Ai  i+1 

=  ]Cs^/  T(z)P*(z)dz 

1  i 


(15) 


(16) 


(17) 


The  pressure  and  total  air  density  are  both  assumed  to  follow  an  exponential 
profile  with  scale  heights  Hp  and  H^*  respectively.  The  integral  in  Eq.  (15)  can 
be  written  as 


i+1 

J  Pp  *dz 


H  H  * 
P  P 

H  +H  * 
P  P 


(P(Zj)  pJ<(z.)  -P(z.+1)  p*(z.+1)) 


From  the  ideal  gas  law 


(18) 


P  =  Gp*T  ,  (19) 

where  G  is  the  gas  constant  for  air.  Using  this  equation,  the  integral  in  Eq.  (16) 
becomes 

i+1  i+1  H 

/  Tp*dz  =-q-/  Pdz  =  -J-  (P(Zj)  -  P(z.+1)  .  (20) 

i  i 

The  density  integral  in  Eq.  (17)  is  the  same  as  in  Eq.  (10): 
i+1 

/  p*dz  =  Hp*(p*(Zj)  -  p*(z.+1))  .  (21) 

The  next  section  will  describe  the  method  used  to  calculate  the  refracted  path 
As.  through  each  sublayer. 


2.2  Atmwpheric  Refraction 

The  refraction  of  a  light  ray  is  due  to  the  gradient  of  the  index  of  refraction  n, 
with  the  ray  refracted  in  the  direction  of  increasing  n.  To  a  close  approximation, 
the  refractivity  N  =  n  -  1  is  proportional  to  the  air  density.  See  Appendix  B  for  a 
discussion  of  the  index  of  refraction  of  air.  In  a  spherically  symmetric  atmos¬ 
phere,  grad  n  is  directed  radially,  and  except  in  unusual  circumstances,  down¬ 
ward.  The  trajectory  of  the  ray  is  determined  by  Snells  law  for  a  spherically 
2 

symmetric  medium: 

n(r)  r  sin  8  -  c  ,  (22) 

where  8  is  the  angle  of  incidence  at  r  and  c  is  a  constant  that  depends  upon  the 
particular  path.  If  the  ray  is  horizontal  at  r™  then  z  =  r™  -  r  is  the  tangent 

•  1  ^  O 

height  and  c  =  n(r^,)r^,.  The  curvature  K  of  the  refracted  ray  can  be  shown  to  beJ 

K  =  -  sin  8  —  .  (23) 

where  n'  =  dn/dr. 

It  is  useful  to  define  the  quantity  R(r)  as 

R(r)  =  -  -rr  .  (24) 

n/n' 

R  is  simply  the  ratio  of  r  to  the  radius  of  curvature  of  a  ray  tangent  at  r.  R  is  a 
property  of  the  atmospheric  profile  (not  the  particular  path)  and  is  a  good  measure 
of  uie  importance  of  refraction  at  a  given  altitude.  For  example,  for  the  U.  S. 
Standard  Atmosphere  1962,  R  is  0. 16  at  the  ground  and  decreases  approximately 
exponentially  with  a  scale  height  of  about  10  km.  As  an  extreme  example,  if 
R  =  1.0,  a  ray  tangent  at  r  will  continue  indefinitely  to  follow  a  circular  path  of 
radius  r. 

Consider  now  a  point  moving  along  the  path  within  the  layer  defined  by  r^  and 
Tg  as  shown  in  Figure  1.  At  a  point  defined  by  the  radius  r  and  with  an  incidence 
angle  8  as  shown  in  Figure  2,  the  differential  path  length  ds  is 

ds  =  -  cth dr  •  (25) 


2.  Born,  M. ,  and  Wolf,  E.  (19G4)  Principals  of  Optics,  Pergamon  Press,  Inc., 

N.Y.,  pp  121-123. 

3.  Meyer-Arendt,  J.R.,  and  Emmanuel,  C.B.  (1965)  Optical  Scintillation: 

A  Survey  of  the  Literature,  National  Bureau  of  Standards,  Tech  Note  225. 


Eq.  (22)  can  be  used  to  eliminate  e  in  Eq.  (25)  giving: 


ds  =  1  - 


Eq.  (26)  can  be  integrated  numerically  to  obtain  s  for  a  layer  or  sublayer. 

The  drawback  with  using  Eq.  (26)  is  that  in  the  region  near  a  tangent  height 
(that  is,  sin  9  =  c/nr  approaches  1),  the  right-hand  side  of  Eq.  (26)  goes  to  infinity 
and  a  different  numerical  algorithm  must  be  used.  An  alternative  formulation  of 
this  equation  that  avoids  this  problem  is  as  follows.  Define  a  new  independent 
variable  x  as 

x  =  -  r  cos  o  (27) 


dx  =  -  (  cos  9  -  r  sin  e  )  dr 


Differentiating  Eq.  (22)  and  using  Eq.  (24)  gives 


de  _  tan  9 


(1-R)  . 


Substituting  Eq.  (29)  into  Eq.  (28)  gives 


dx  =  -  (1  -  R  sin2  0)  ^  . 


Comparing  Eq.  (30)  with  Eq.  (25)  gives 


ds  =  (1  ••  R  sin2  0)-1  dx 


In  this  form  of  the  equation  for  ds,  the  right-hand  side  is  a  well-behaved  function 
of  r  for  all  paths,  including  vertical  and  horizontal  paths  (except  in  the  unusual 
circumstances  that  R  >  1).  The  intermediate  variable  x  is  related  to  r  by 


x  =  -  r  cos  9  =  r  1  - 


which  is  also  a  well-behaved  function  of  r  for  all  paths.  In  practice,  the  numerical 
integration  of  Eq.  (31)  is  driven  in  terms  of  steps  in  r,  from  r  to  r  +  Ar,  The 
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corresponding  increment  in  x  is  calculated  using  Eq.  (32).  The  integration  of  s 
from  Eq.  (31)  is  then  straightforward. 

It  is  also  useful  to  calculate  the  values  of  the  earth  centered  angle  (3  and  the 
bending  <p  for  the  layer.  From  Figure  2,  again, 

_  tan  0 

3r  “  r  (3, 

In  terms  of  x: 


•  a  sm2  e)'1 


\jj  is  related  to  the  other  path  quantities  by 


t//  =  ir  +  P-  a-  6 


so  that 


#  -  -  £2 
cGc  3x  3x 


giving 


=  (1  -  R  sin2  ©)  1  y  sin  0 


In  practice  ip  is  integrated  along  the  path  along  with  s  and  0  is  calculated  from 
Eq.  (35). 

It  is  useful  to  examine  Eq.  (31)  in  some  detail.  It  can  be  shown  geometrically 
that  dx  equals  ds  in  the  case  of  a  straight  line,  that  is,  no  refraction.  Correspond¬ 
ingly,  the  right-hand  side  of  Eq.  (31)  approaches  1  as  refraction  becomes  less 
Important,  that  is,  as  either  R  or  sin  0  goes  to  zero.  At  the  other  extreme,  in  the 
case  of  very  strong  refraction  of  a  horizontal  ray  where  the  curvature  due  to  re¬ 
fraction  equals  the  curvature  of  the  earth,  R  and  sin  0  both  equal  1  and  the  right- 
hand  side  of  Eq.  (31)  becomes  infinite.  The  path  in  this  case  is  a  circle  for  which 
x  =  r  cos  0  is  constant.  For  even  stronger  refraction  where  R  >  1,  the  light  ray 
is  bent  back  toward  the  earth  and  the  right-hand  side  of  Eq.  (31)  becomes  negative. 


In  this  case,  dx  is  also  negative  along  the  p  .h.  Finally,  in  the  presence  of  a 
density  inversion  (n1  >  0),  R  is  negative  and  the  ray  is  bent  upwards. 


2.3  Numerical  Algorithm 

This  section  will  describe  the  numerical  algorithm  used  to  calculate  the  slant 
path  and  the  absorber  amounts  through  a  single  layer. 

The  integration  of  the  slant  path  parameters  s,  |3,  and  \p  and  the  absorber 
amounts  is  performed  by  dividing  the  layer  into  sublayers  bounded  by  the  altitudes 
zj»  j  -  1  to  J.  The  spacing  of  the  sublayers  is  chosen  so  that  the  path  increments 
are  approximately  equal  to  a  nominal  path  increment  As,  where  As  is  determined 
by  the  required  accuracy  of  the  results.  The  integration  always  proceeds  from 
the  bottom  of  the  layer  to  the  top:  the  incidence  angle  0  at  the  bottom  of  the  layer 
is  assumed  known  as  is  the  value  of  c  [Eq.  (22)] . 

The  values  of  N,  P,  p,  and  p*  are  interpolated  exponentially  from  the  values 
at  the  layer  boundaries  with  scale  heights  HN,  H  ,  H  ,  and  H  *  respectively. 

R  is  given  by  P  P 

R  =  n/n7 


rNj  e 


-z/H 


N 


BN(l  t  Nj  e'Z/Hw)  ' 


where  Nx  is  the  value  of  N  at  z  =  0. 

The  numerical  integration  scheme  proceeds  as  follows: 

1.  Ar.  =  As  cos  0.  . 

J  J  "A 


2. 

3. 


4. 


r3  =  r3-l  +  Ar3 


sin  0.  =  c/(n(r.)r.) 

J  J  J 

cos  0.  =  -(1  -  sin2  0.)1/2 
J  3 


5.  V-rjCo.6, 

6.  4VVV, 


ds 

dx 


=  (1  -  R,  sin*  0,) 


3 


3 


(38) 


17 


:.v 


s.  s.  =  s..,  +  j  (gf 


j-i 


ds 

dx 


AX3 


9  ^ 

9*  35T 


ds 
,  "  3x 


fj 

i  r3 


r,  Sln  «j 


i°.  0.  =  +  \  ( gl 


j-i 


d(& 

a? 


Axj 


As. 

J 

12.  j  =  j  +  1 

13.  Go  to  1. 

Near  a  tangent  height  where  cos  Q  approaches  zero,  this  scheme  must  be  modified. 
First,  Step  1  breaks  down  for  cos  =  0  and  is  replaced  by 


Ar 


1 


(39) 


Secondly,  the  truncation  error  for  cos  ft.  in  Step  4  is  excessive  for  computers  with 

seven  decimal  digits  of  precision  when  sin  ft.  is  greater  than  about  0.  99999.  To 

avoid  this  problem,  cos  ft.  is  calculated  for  sin  9-  >  0. 99999  from: 

3  3 


cos  ft(r)  =  -(2  y(r)  -  y  <r)) 


1/2 


(40) 


and 


y(r)  =  f  (1  -  R(r))  il2_£  dr  .  (41) 

rT 

where  rT  is  the  radius  at  the  tangent  height.  [Eq.  (40)  and  Eq.  (41)  are  obtained 
by  integrating  Eq.  (29).  ] 

Note  that  the  steps  are  driven  in  increments  of  r  although  the  nominal  inde¬ 
pendent  variable  is  x.  There  are  two  reasons  for  this  procedure.  First,  it  is 
necessary  to  stop  the  integration  at  the  upper  boundary;  this  is  done  most  con¬ 
veniently  when  r  drives  the  integration.  Secondly,  x  is  an  analytic  function  of  r 
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y.y.y 


so  that  x.  can  be  calculated  simply  from  r..  The  opposite  is  not  true;  an  iterative 

J  3 

scheme  would  be  required  to  calculate  r,  given  x.. 

3  3 


2.4  Examples  of  Air  Mass  Calculations 

This  section  will  present  some  examples  of  air  mass  calculations  for  total 
air,  water  vapor,  and  ozone  for  various  geometries  and  atmospheric  profiles 
using  the  program  FSCATM,  The  cases  were  chosen  to  broadly  represent  the 
range  of  conditions  likely  to  meet  in  spectroscopic  observations  of  the  atmos¬ 
phere.  In  general,  the  results  are  presented  both  with  and  without  the  effects  of 
refraction  so  that  the  reader  may  judge  for  himself  under  which  circumstances 
refraction  can  be  neglected. 

The  three  atmosphere  profiles  used  here  are  taken  from  McClatchey  et  al^* 
and  were  chosen  to  represent  mean  and  extremes  of  temperature  and  of  water- 
vapor  and  ozone  concentrations  found  in  the  atmosphere.  The  profiles  of  tempera¬ 
ture,  total  air  density,  water-vapor  density,  and  ozone  density  up  to  70  km  are 
shown  in  Figure  3.  The  surface  pressure  for  all  three  profiles  is  the  same, 

1013  mb. 

The  paths  are  described  in  terms  of  the  following  parameters:  HI  is  the  ob¬ 
server's  altitude,  ANGLE  is  the  zenith  angle  at  the  observer,  and  H2  is  the  alti¬ 
tude  of  the  other  end  of  the  path.  For  a  path  out  to  space,  H2  is  the  top  of  the 
atmospheric  profile  (here  100  km).  Three  geometries  are  presented  here: 

(1)  HI  =  0,  H2  .=  100  km,  ANGLE  varies  from  0  to  90°,  (2)  H2  =  100  km, 

ANGLE  =  90°,  HI  varies  from  0  to  50  km,  and  (3)-  HI  =  30  km,  H2  =  100  km, 
ANGLE  varies  from  85°  to  about  95.  5°  at  which  point  the  path  intersects  the 
earth.  Path  1  is  relevant  for  ground-based  observations,  while  paths  2  and  3 
correspond  to  observations  from  balloon  or  aircraft.  Path  2  is  also  relevant  to 
satellite  observations  scanning  the  limb,  where  HI  is  the  tangent  height  and  the 
integrated  absorber  amounts  must,  of  course,  be  doubled. 

These  calculations  were  all  performed  with  the  index  of  refraction  calculated 
at  2000  cm  1  (5  ym).  The  effect  on  air  mass  of  variations  of  the  index  of  refrac¬ 
tion  with  wavenumber  are  negligible  between  500  and  20,  000  cm-1  (20  to  0.  5  jjm). 

Although  the  term  air  mass  refers  properly  only  to  the  amount  of  air  along  a 
path,  it  will  be  applied  here  loosely  to  water  vapor  and  ozone  to  refer  to  the  inte¬ 
grated  amount  relative  to  a  vertical  path  from  ground  to  space  for  the  same 


jft 

See  Appendix  A  regarding  the  water  vapor  profiles. 

4.  McClatchey,  R.A.,  Fenn,  R.W.,  Selby,  J.  E.A.,  Volz,  F.  E.,  and  Garing, 
J.  S.  (1972)  Optical  Properties  of  the  Atmosphere  (Third  Edition). 
AFCRL-TR-72-0497,  AD  679996. 
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Figure  3.  Profiles  of  Three  Atmospheric  Models  of  (a)  Temperature,  (b)  Total 
Air  Density,  (c)  Water  Vapor,  and  (d)  Ozone 
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vertical  distribution.  For  the  U.S.  Standard  Atmosphere  1962,  one  air  mass 
refers  to  the  following  integrated  absorber  amounts; 


atr 

2. 15  X  10^®  molecules  cm"^ 

water  vapor 

4.  74  X  10^  molecules  cm"^ 

ozone 

9.24  X  10*®  molecules  cm’^ 

In  the  following  graphs,  U  and  ?5  will  represent  the  air  mass  for  a  refracted  path 
and  an  unrefracted  path  respectively. 

Figures  4  and  5  show  the  effect  of  the  earth's  curvature  on  air  mass  for  a 
ground-based  observer  by  comparing  the  air  mass  computed  without  refraction 
with  the  secant  of  the  zenith  angle.  Figure  5  shows  that  the  secant  approximation 
is  good  to  within  1  percent  up  to  a  zenith  angle  of  72°  for  a  uniformly  mixed  gas, 
up  to  80°  for  water  vapor,  but  only  up  to  60°  for  ozone. 

Figure  6  shows  the  same  calculations  as  Figure  4  except  that  refraction  is 
included.  At  90°  the  air  mass  values  for  the  three  components  are: 


With 

No 

Refraction 

Refraction 

air 

38. 1 

35.  1 

h2° 

72.2 

66.  1 

°3 

14.4 

13.8 

These  values  depend  upon  the  atmospheric  profile  used;  in  this  case  it  is  the 
U.S.  Standard  Atmosphere  1962.  Water  vapor  has  the  highest  value  since  it  is 
concentrated  near  the  ground  where  the  effective  secant  [ds/dz  in  Eq.  (6)]  is  the 
highest.  Conversely,  ozone  has  the  smallest  air  mass  value  since  the  ozone 
density  profile  peaks  near  20  km,  where  the  effective  secant  is  relatively  small. 

Comparing  Figure  7  with  Figure  5  shows  that  the  effect  of  refraction  is  smaller 
than  that  of  the  earth's  curvature.  At  90°,  refraction  increases  the  air  mass  by 
less  than  10  percent,  and  the  air  mass  can  be  computed  neglecting  refraction  to 
better  than  1  percent  up  to  86  for  water  vapor,  84°  for  a  uniformly  mixed  gas, 
and  82°  for  ozone. 

The  air  mass  vs  altitude  for  an  observer  looking  out  horizontally  is  shown  in 
Figure  8,  These  curves  mimic  the  density  profiles  of  the  components  themselves, 
since  for  this  path  the  bulk  of  the  absorber  is  located  within  a  few  kilometers 
(vertically)  of  the  observer's  altitude.  From  Figure  9,  the  effect  of  refraction 
an  air  mass  becomes  less  than  1  percent  at  20  km  for  all  three  components. 
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Figure  4.  Air  Mass  (U)  vs  Zenith  Angle  for  the  Case:  HI  =  0,  H2  =  100  km  U.S. 
Standard  Atmosphere  1962,  No  Refraction.  For  reference,  the  secant  of  the  angle 
is  also  shown:  (a)  0  to  90°  and  (b)  74  to  90° 
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Figure  5.  Relative  Air  Mass  Error  Due 
to  the  Secant  Approximation  vs  Zenith 
Angle  for  the  Case  Shown  in  Figure  4 
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Figure  6.  Air  Mass  (U)  vs  Zenith  Angle  for  the  Case  HI  =  0,  H2  =  100  km, 
U.  S.  Standard  Atmosphere  1962,  Including  Refraction:  (a)  0  to  90°  and 
(b)  74  to  90° 
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Figure  7.  Relative  Air  Mass  Error  Due  to  Neglecting  Refraction  vs  Zenith 
Angle  for  the  Case  in  Figure  6:  (a)  0  to  90°  and  (b)  74  to  90° 
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Figure  8.  Air  Mass  (U)  vs  Observer 
Altitude  (HI)  for  the  Case  H2  =  100  km, 
ZENITH  ANGLE  =  90°,  U.  S.  Standard 
Atmosphere  1962,  Including  Refraction 


Figure  9.  Relative  Air  Mass  Error 
Due  to  Neglecting  Refraction  vs  Ob¬ 
server  Altitude  for  the  Case  in  Fig¬ 
ure  8 


The  variation  of  air  mass  with  zenith  angle  for  a  typical  stratospheric  balloon- 
borne  spectroscopic  experiment  is  shown  in  Figure  10,  with  the  error  due  to  neg¬ 
lecting  refraction  in  Figure  11.  The  zenith  angle  shown  is  the  apparent  zenith 
angle  of  the  refracted  ray  such  as  would  be  measured  at  the  observer.  The  tan¬ 
gent  height  vs  zenith  angle  is  shown  on  the  right-hand  axis  of  Figure  10.  Also 
shown  on  Figure  10  is  the  sun's  angular  diameter  for  comparison  (after  Sneider0). 
If  the  sun  is  used  as  a  source  for  a  measurement,  the  air  mass  to  different  points 
in  the  sun  can  vary  by  more  than  a  factor  of  2  for  large  zenith  angles.  This  effect 
is  due  to  curvature:  by  comparison  of  the  effect  of  refraction  shown  in  Figure  11 
is  much  less.  The  variation  in  air  mass  due  to  this  effect  can  be  the  major  source 
of  uncertainty  in  a  measurement  and  must  be  considered  carefully, 

Sneider's  Figures  4  and  5  show  comparisons  similar  to  Figures  10  and  11 
here;  however,  they  are  not  directly  comparable  since  his  refracted  and  unre¬ 
fracted  paths  do  not  have  the  same  zenith  angle  at  the  observer.  His  calculations 
involve  an  observer  looking  at  the  sun:  the  unrefracted  path  follows  a  straight 
line  to  the  sun  with  the  zenith  angle  at  the  observer  equal  to  the  astronomical 

5.  Sneider,  D.  (1975)  Refractive  effects  in  remote  sounding  of  the  atmosphere 
with  infrared  transmission  spectroscopy,  J,  Atmos.  Sci.  32:2178-2184, 
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Figure  10.  Air  Mass  (U)  vs  Zenith  An-  Figure  11.  Relative  Air  Mass  Error 

gle  for  the  Case  HI  =  30  km,  H2  =  100  Due  to  Neglecting  Refraction  vs  Zenith 

km,  U.  S.  Standard  Atmosphere  1962,  Angle  for  the  Case  in  Figure  10 

Including  Refraction.  Also  shown  are 
the  tangent  height  vs  zenith  angle  and 
the  angular  diameter  of  the  sun 

zenith  angle.  For  the  refracted  path,  the  zenith  angle  at  the  observer  is  the  appar¬ 
ent  zenith  angle,  which  is  less  than  the  astronomical  zenith  angle.  It  turns  out 
that  the  effect  of  refraction  appears  greater  for  the  geometry  presented  in  Sneider's 
report  than  in  this  one. 

Figures  12  and  13  demonstrate  the  effect  of  different  atmospheric  profiles  on 
the  absorber  amount  for  two  different  paths.  In  Figure  12(a)  the  integrated  amount 
for  a  uniformly  mixed  gas  for  a  path  from  ground  to  space  at  90°  varies  only 
10  percent  from  a  tropical  to  a  Subarctic  Winter  atmosphere  (assuming  the  same 
surface  pressure).  The  water  vapor  amount,  however,  differs  by  a  factor  of  10 
and  the  ozone  amount  by  a  factor  of  2,  due  to  different  density  profiles,  l  or  the 
path  in  Figure  13  (tangent  height  to  space)  the  pressure  at  a  given  altitude  is  dif¬ 
ferent  for  the  three  profiles  so  that  the  amounts  for  a  uniformly  mixed  gas  become 
equal  at  3  km.  The  water  amounts  above  13  km  become  equal  because  the  water 
vapor  profiles  above  that  altitude  are  about  the  same  [see  Figure  3(c)). 

Different  atmospheric  profiles  also  produce  different  amounts  of  refraction. 

The  difference  in  the  tangent  height  between  a  refracted  and  an  unrefracted  ray 
coming  in  from  space  is  shown  as  a  function  of  the  refracted  tangent  height  in 
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Figure  13.  Integrated  Absorber  Amounts  vs  Observer  Altitude  for  Three  Atmos¬ 
pheric  Profiles  for  the  Case  of  ZENITH  ANGLE  =  90,  H2  =  100  km,  Including 
Refraction:  (a)  Total  Air,  (b)  Water  Vapor,  and  (c)  Ozone 
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Figure  14.  Unrefracted  Tangent  Height 
Minus  Refracted  Tangent  Height  vs  Re¬ 
fracted  Tangent  Height  for  Three  Atmos¬ 
pheric  Profiles.  The  diagram  illustrates 
the  geometry  involved 
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Figure  15.  Refractive  Bending  vs  Zenith  Angle  for  Three  Atmospheric  Profiles 
for  the  Case  HI  =  0,  H2  =  100  km:  (a)  0  to  90°  and  (b)  74  to  90° 
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Figure  14  for  the  three  atmospheric  profiles  (the  geometry  is  shown  schematically 
in  the  inset).  The  total  refractive  bending  is  shown  in  Figure  15  vs  zenith  angle 
for  a  path  from  ground  to  space  and  in  Figure  16  vs  observer  altitude  for  a  path 
tangent  at  that  altitude.  Note  that  the  total  bending  for  a  path  from  the  ground  at 
90°  for  the  U.  S.  Standard  Atmosphere  1962  and  for  the  tropical  atmosphere  is 
about  0.  5°,  which  is  the  same  a3  the  solar  diameter  of  0.  5°. 
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Figure  16.  Refractive  Bending  vs  Ob¬ 
server  Altitude  for  Three  Atmospheric 
Profiles  for  the  Case  H2  =  space, 
ZENITH  ANGLE  =  90° 


3.  FSCATM:  A  PROGRAM  TO  CALCULATE  AIR  MASS 


FSCATM  calculates  the  integrated  absorber  amounts  and  density-weighted 
pressure  and  temperature  for  an  arbitrary  slant  path  through  the  atmosphere. 
FSCATM  is  specifically  designed  to  calculate  and  format  the  atmospheric  inputs 
for  the  atmospheric  transmittance/radiance  program  FASCODE.  The  form  of 
the  input  parameters  mimics  as  closely  as  possible  the  input  parameters  to  the 
well  known  low  resolution  atmospheric  transmittance/radiance  program 


LOWTRAN.  In  fact,  the  core  subroutines  from  FSCATM  will  replace  the  geom¬ 
etry  subroutines  in  the  next  version  of  LOWTRAN.  The  six  representative  atmos¬ 
pheric  profiles  included  in  FSCATM  are  the  same  as  in  LOWTRAN  although  the 
densities  are  in  different  units. 

3.1  Program  Usage 

Four  standard  control  cards  control  the  operation  of  FSCATM  while  other 
cards  may  be  required  to  define  non-standard  conditions.  The  program  input 
consists  of  a  set  of  control  cards  read  in  on  UNIT  =  5  defining  the  atmospheric 
profile,  the  path,  and  the  output  layer  boundaries.  Output  consists  of  a  report 
written  to  UNIT  =  6  providing  a  complete  description  of  the  profile,  path,  and 
absorber  amounts  and  describing  any  error  conditions  encountered.  Optionally, 
the  mean  pressure  and  temperature  and  the  integrated  absorber  amounts  for  each 
layer  are  written  to  UNIT  =  7.  Examples  of  program  input  and  output  will  be 
shown  later  in  this  section. 

3.1.1  INPUT 

The  four  standard  atmospheric  input  control  cards  are  shown  in  Table  1  and 
are  discussed  below. 

3. 1.1.1  Card  1  Model  Parameters:  MODEL,  ITYPE,  IBND, 

NOZERO,  NOPRNT,  KMAX,  IPUNCH,  RE 

The  parameter  MODEL  selects  one  of  the  six  standard  atmospheric  profiles 
(1  to  6)  or  allows  the  user  to  read  in  either  a  profile  (MODEL  =  7)  or  a  set  of 
horizontal  path  parameters  (MODEL  =  0).  (See  the  section  on  non-standard  con¬ 
ditions  for  the  use  of  MODEL  =  0  or  7. )  ITYPE  selects  one  of  three  types  of  path: 
(1)  a  horizontal  path  at  constant  temperature  and  pressure,  (2)  a  slant  pafh  from 
HI  to  H2,  (3)  a  slant  path  from  HI  to  space  (equal  to  the  highest  level  in  the 
atmospheric  profile,  100  km  for  MODEL  =  1  to  6).  IBND  controls  the  layering  of 
the  final  output:  If  IBND  =  0,  the  program  automatically  selects  a  set  of  output 
layers  based  on  user-supplied  parameters  from  Card  4.  If  IBND  is  greater  than 
0,  the  user  directly  inputs  the  output  layer  boundaries  on  Card  4. 

Normally,  the  program  will  zero  out  the  absorber  amounts  of  a  gas  for  a 
layer  if  the  amount  for  that  layer  and  those  above  it  are  less  than  0. 1  percent 
of  the  total  amount.  NOZERO  =  1  suppresses  this  option.  This  option  is  used  to 
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See  Appendix  A  for  a  discussion  of  these  atmospheric  profiles. 

6.  Kneizys,  F.  X. ,  Shettle,  E.  P. ,  Gallery,  W.  O. ,  Chetwynd,  J.  H, ,  Jr., 

Abreu,  L.W.,  Selby,  J.  E.A.,  Fenn,  R.W.,  and  McClatchey,  R.A.  (1980) 
Atmospheric  Transmittance/Radiance:  Computer  Code  LOWTRAN  5, 

A FGL-TR -80-0067,  AD“AT)88215. 


Table  1.  FSCATM  Control  Cards 


Control  Card  1:  MODEL,  ITYPE,  IBND,  NOZERO,  NOPRNT,  KMAX, 
IPUNCH,  RE 
{715,  5X,  F10,  4) 

MODEL  =  0:  user-supplied  horizontal  path  parameters 
1:  tropical  atmospheric  model 
2:  midlatitude  summer 
3:  midlatitude  winter 
4:  subarctic  summer 
5:  subarctic  winter 
6:  U.  S.  Standard  Atmosphere  1962 
7:  user-supplied  atmospheric  profile 

ITYPE  =  1:  horizontal  path  (constant  pressure) 

2:  slant  path  from  HI  to  H2 
3:  slant  path  from  HI  to  space 

IBND  number  of  boundary  altitudes  for  the  FAS0CD1  layers: 

IF  IBND  ,GT.O,  user-supplied  boundaries 
IF  IBND  .  EQ.  0,  auto  layering  is  selected 

NOZERO  =  1:  suppresses  zeroing  of  small  amounts 
Default  =  0 

NOPRNT  =  1:  selects  short  printout.  Default  =  0 

KMAX  number  of  molecular  species.  Default  =  7,  max  =  20. 

IF  KMAX  .  LT.  0,  a  ray  trace  is  done  but  no  amounts  are 
calculated. 

IPUNCH  =  1:  write  layer  amounts  to  unit  IPU=7.  Default  =  0. 

RE  radius  of  the  earth,  defaults: 

MODEL  =  1,  RE  =  6378.39  km 

2,  3,  6,  7,  RE  =  6371.23  km 
4,  5,  RE  =  6356.91  km 

The  formats  for  the  remaining  control  cards  are  different  depending  on 
whether  the  path  is  horizontal  (ITYPE=1)  or  slant  (ITYPE=2  or  3). 


For  a  slant  path  (ITYPE=2  or  3): 

Control  Card  2:  HI.  H2,  ANGLE,  RANGE,  BETA,  LEN 
(5F10.  4,  15) 

altitude  of  the  observer  or  receiver  (km) 
altitude  of  the  other  endpoint  of  the  path  (ITYPE=2)  or 
the  tangent  height  (ITYPE=3) 
zenith  angle  at  HI  (degrees) 
length  of  the  path  from  HI  to  H2  fkm): 
earth  centered  angle  for  the  path  if1  to  H2  (deg) 

=0,  short  path;  =1,  long  path  through  a  tangent  height. 
LEN  is  used  only  when  ANGLE  is  greater  than  90.  0  and 
HI  is  greater  than  H2.  Default  =  0. 

Control  Card  3:  VI,  V2 

(2F10.3) 

VI,  V2  initial  and  final  wavenumbers  for  use  in  calculating  the 
Doppler  halfwidth  used  in  creating  the  FASCODE  layers 
and  in  calculating  the  index  of  refraction  (cm"*) 


HI 

H2 

ANGLE 

RANGE 

BETA 

LEN 


Table  1.  FSCATM  Control  Cards  (Contd) 


Control  Card  4: 

IF  IBND  .  EQ.  0  (autolayering  selected) 

AVTRAT,  TDIFF1,  TDIFF2  (3F10. 3) 

AVTRAT  =  max  Voigt  width  ratio  across  a  layer.  Default  =  2.0 
TDIFF1  =  max  temp  difference  (K)  across  a  layer  at  HMIN 

(=lowest  altitude  along  the  path).  Default  =  15. 0  K 
TDIFF2  =  max  temp  difference  (K)  across  a  layer  at  HMAX 

(=highest  altitude  along  the  path).  Default  =  30. 0  K 

IF  IBND  .  NE.  0  (user-supplied  FASCOD1  layer  boundaries) 

(ZBND(IB),  IB=1,  IBND)  (8F10.3) 

ZBND  altitudes  of  FASCOD1  layer  boundaries 

If  MODEL=7,  the  input  atmospheric  profile  is  read  in  after  Control 
Card  4  in  the  following  format: 

IMOD,  HEADER05,  /,  3A8) 

IMOD  =  number  of  levels  in  the  profile 
HEADER  =  24-character  describing  the  profile 

Z,  P.  T.  TD.  RH.  PPH20,  DENH10,  AMSMEX  (8F10.  3) 

(VMIX(K),  K=l,  KMAX)  (8E10. 3) 

two  (or  more)  card  images  for  each  of  the  IMOD  levels.  See  the 
text  for  the  definition  and  usages  of  TP,  RH,  PPH20,  DENH20, 
AMSMIX,  andVMIX. 


For  a  horizontal  path  (ITYPE=1): 
Control  Card  2: 


For  MODEL  =  1  to  7: 

Z,  RANGE  (2F10.3) 

For  MODEL  =  0: 

RANGE,  P,  T,  TD,  RH,  PPH20,  DENH20,  AMSMIX  (8F10.  3) 

(VMEX(K),  K=l,  KMAX)  (8E10.  3) 

where  Z  and  RANGE  are  the  altitude  and  range  of  the  path,  both 
in  km.  For  MODEL  =  1  to  7,  the  pressure,  temperature,  and 
densities  are  interpolated  from  the  model  atmosphere.  For 
MODEL  =  0,  see  the  text  for  the  definition  and  usages  of  TP,  RH, 
PPH20,  DENH20,  AMSMIX,  and  VMIX.  If  the  volume  mixing 
ratio  of  O3  is  not  supplied  for  MODEL  =  0,  it  is  computed  using 
a  value  for  the  volume  mixing  ratio  of  40.  E-9. 

Control  Cards  3  and  4:  not  used 

For  MODEL  =  7,  the  input  atmospheric  profile  is  read  in  after 
Control  Card  2  as  for  a  slant  path. 


32 


save  computation  time  in  the  line-by-line  computation  since  the  computation  time 
is  proportional  to  the  number  of  spectral  lines  in  the  calculation.  NOPRNT  =  1 
selects  a  short  form  of  the  output  on  UNIT  =  6  by  suppressing  the  printing  of  the 
tables  of  the  atmospheric  profile,  the  slant  path,  and  the  layer  amounts.  KMAX 
is  the  number  of  molecular  species  for  which  the  amounts  are  calculated  and  de¬ 
faults  to  7.  The  order  of  the  molecules  corresponds  to  the  order  on  the  AFGL 

*1  jjt  O 

Atmospheric  Line  Parameters  Compilation  and  the  Trace  Gas  Compilation  and 
is  listed  in  Table  2.  To  calculate  amounts  for  molecules  other  than  the  first 
seven,  the  user  must  select  the  MODEL  =  7  option  and  read  in  an  atmospheric 
profile  including  the  profiles  of  the  desired  molecules,  up  to  at  most  20.  If  KMAX 
is  less  than  zero,  a  ray  trace  is  performed  but  no  amounts  are  calculated.  RE 
is  the  radius  of  the  earth  in  KM.  It  can  be  changed  to  account  for  variations  in 
the  radius  with  latitude  or  to  model  the  atmosphere  of  other  planets. 

3. 1. 1.2  Card  2  Slant  Path  Parameters:  HI,  H2,  ANGLE,  RANGE,  BETA,  LEN 

The  format  for  Card  2  and  following  are  different  depending  on  whether  ITYPE 
is  1  (horizontal  path)  or  2  or  3  (slant  paths).  The  slant  paths  will  be  discussed 
first. 

The  slant  path  parameters  are  illustrated  in  Figure  17.  Only  two  or  three  of 
the  first  five  parameters  on  Card  2  need  be  specified  to  define  the  slant  path.  See 
Table  3  for  the  allowable  combinations  of  slant  path  parameters.  The  distinction 
between  HI  and  H2  is  important  when  calculating  radiance,  since  the  radiance  for 
the  path  from  HI  to  H2  is  not  the  same  as  that  from  H2  to  HI.  ANGLE  is  the 
apparent  or  measured  zenith  angle  at  HI  and  is  different  from  the  astronomical 
or  unrefracted  zenith  angle.  Note  from  Table  3  that  when  RANGE  is  a  supplied 
parameter,  H2  or  ANGLE  is  calculated  assuming  no  refraction  and  the  refracted 
path  is  followed  using  that  value.  The  resulting  path  will  have  a  value  of  RANGE 
different  from  the  input  value,  and  if  the  path  goes  through  a  tangent  height,  the 
difference  can  be  substantial.  The  parameter  LEN  is  demonstrated  in  Figure  18. 

Certain  combinations  of  slant  path  parameters  represent  impossible  geom¬ 
etries,  for  example,  HI  =  10  km,  H2  =  5  km,  ANGLE  =  60  deg.  These  cases  are 
flagged  as  errors  and  the  program  stops.  If  a  slant  path  intersects  the  earth,  for 
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Table  3.  Allowable  Combinations  of  Slant  Path  Parameters 


Case 

ITYPE 

HI 

H2 

ANGLE 

RANGE 

BETA 

LEN 

(Optional) 

2A 

2 

* 

* 

* 

(*) 

2B 

2 

* 

* 

* 

2C 

2 

* 

* 

* 

2D 

2 

* 

* 

* 

3A 

3 

* 

* 

3B 

3 

* 

* 

(HMIN) 

2A:  LEN  option  is  available  only  when  HI  >  H2  and  ANGLE  >  90.  Otherwise, 
LEN  is  set  in  the  program. 

2B:  H2  calculated  assuming  no  refraction.  Calculated  RANGE  will  differ  from 
the  input  value. 

2C:  ANGLE  calculated  assuming  no  refraction.  Calculated  RANGE  will  differ 
from  the  input  value. 

2D:  Exact  ANGLE  is  calculated  by  iteration  of  the  path  calculation. 

3B:  H2  is  interpreted  as  HMIN  =  tangent  height.  H2  is  reset  to  highest  profile 
boundary. 


Figure  18.  Demonstration  of  the  Parameter  LEN 


example,  HI  =  10  km,  H2  =  20  km,  ANGLE  =  100  deg,  the  action  of  the  program 
depends  upon  ITYPE.  If  ITYPE  =  2,  an  error  is  flagged  and  the  program  stops. 

If  ITYPE  =  3,  H2  is  reset  to  0,  a  message  is  printed,  and  the  program  continues. 

It  is  possible  to  specify  a  value  for  HI  and/or  H2  that  is  greater  than  the 
highest  altitude  in  the  atmospheric  profile,  for  example,  HI  might  be  a  satellite 
altitude  (for  MODEL  =  1  through  6,  the  highest  boundary  is  at  100  km).  In  this 
case,  the  program  resets  HI  and/or  H2  to  the  highest  profile  altitude  ZMAX  and 
recomputes  ANGLE  at  ZMAX,  assuming  no  refraction.  This  procedure  is  neces¬ 
sary  because  the  density  profiles  above  the  top  of  the  atmosphere  are  poorly  de¬ 
fined  and  because  the  calculation  time  for  the  path  above  the  atmosphere  may  be 
excessive  (for  example,  for  geosynchronous  altitudes).  Note  also  that  for  the 
Case  2D  in  Table  2  (HI,  H2,  BETA)  HI  and  H2  are  not  reset  in  the  iterative  cal¬ 
culation  of  ANGLE  so  this  case  can  be  relatively  time-consuming. 

3. 1.1.3  Card  3  Frequency  Range:  VI,  V2 

The  average  of  VI  and  V2  is  used  to  calculate  the  Doppler  halfwidth  used  in 
creating  the  output  layers  and  to  calculate  the  index  of  refraction.  VI  and  V2 
need  not  correspond  to  the  range  of  the  spectral  calculation,  if  for  example  the 
user  wants  to  run  cases  in  two  different  spectral  regions  with  identical  paths  and 
output  layers. 

3. 1. 1.  4  Card  4  Output  Layering 

If  IBND  a  0  on  Card  1,  the  program  generates  its  own  set  of  output  layer 
boundaries  based  on  the  values  of  AVTRAT,  TDIFF1,  and  TDIFF2.  AVTRAT 
specifies  the  maximum  allowable  ratio  of  the  Voigt  halfwidth  from  one  output 
boundary  to  the  next  highest  for  a  molecule  of  molecular  weight  36  and  Lorentz 
halfwidth  at  1013  mb  and  296K  of  0. 1  cm”1.  TDIFF1.  and  TDIFF2  define  the 
maximum  allowable  temperature  difference  across  an  output  layer  for  a  layer  at 
HMIN  and  HMAX  respectively.  The  actual  temperature  difference  for  a  particu¬ 
lar  layer  is  determined  by  exponentially  interpolating  TDIFF  1  and  TDIFF2  to  the 
altitude  of  bottom  of  the  laj'er.  The  layers  produced  by  this  procedure  will  satisfy 
approximately  both  constraints.  The  defaults  provided  (AVTRAT  =  2.  0, 

TDIFF1  =  15K  and  TDIFF2  =  30K)  will  produce  a  set  of  output  layers  generally 
suitable  for  general  survey  calculations.  The  user  should,  however,  experiment 
with  finer  layering  and  critically  examine  the  results  in  view  of  his  accuracy  re¬ 
quirements. 

If  IBND  is  greater  than  zero,  the  user  supplies  its  own  output  layer  boundaries. 
These  need  not  include  the  path  endpoints  and  may  extend  above  and  below  the  end¬ 
points.  The  program  will  edit  this  set  of  output  boundaries  to  one  that  extends 
from  the  lowest  to  the  highest  altitude  along  the  path  and  includ.  s  HI  or  H2  if  they 


fall  in  the  middle.  The  zeroing  option  on  Card  1  may  further  reduce  this  set  of 
layers  under  certain  circumstances. 

3. 1.1. 5  Horizontal  Path:  Z,  RANGE.  P.  T,  TD,  PPH20,  DENH20, 

AMSMEX.  VMEX 

For  a  horizontal  path  (ITYPE  =  1,  MODEL  =  0  or  MODEL  =  1  to  7),  Card  2 
contains  the  only  remaining  parameters  that  need  be  specified  and  the  format  is 
different  for  the  two  cases.  For  an  ITYPE  =  1,  MODEL  =  1  through  7  case,  only 
the  alu<.ude  z  and  path  length  RANGE  need  be  specified.  The  program  will 
interpolate  the  pressure,  temperature,  and  densities  to  the  given  altitude.  For 
a  MODEL  =  0  case,  the  user  must  supply  the  path  length,  pressure  P,  temperature 
T,  water  vapor  amount,  and  volume  mixing  ratios  for  the  other  gases.  See  the 
next  section  on  non-standard  profiles  for  the  definitions  and  usages  of  the  various 
water  vapor  parameters  and  the  conventions  regarding  the  uniformly  mixed  gases. 

If  no  value  for  the  ozone  volume -mixing  ratio  is  supplied,  the  surface  value  of 
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40  X  10  ppmv  is  assumed,  taken  from  U.S.  Standard  Atmosphere  1976. 

3. 1. 1.  6  Non-Standard  Profiles 

The  MODEL  =  7  option  on  Card  1  allows  the  user  to  read  in  an  atmospheric 
profile,  for  example,  from  a  radiosonde  ascent.  The  profile  is  read  in  after 
Card  4  for  ITYPE  =  2  or  3  and  after  Card  2  for  ITYPE  =  1.  The  necessary  pj.ram- 
eters  for  each  level  are:  the  altitude,  pressure,  temperature,  water  vapor 
amount,  and  volume  mixing  ratios  of  the  other  gases.  The  water  vapor  amount 
can  be  specified  in  any  one  of  six  ways:  VMEX  -  volume  mixing  ratio  (ppm), 
AMSMIX  =  mass  mixing  ratio  (gm  kg-1),  DENH20  =  mass  density  (gm  m~3), 

PPH20  =  partial  pressure  (mb),  RH  =  relative  humidity  (percent),  or  TD  =  dew 
point  (  C).  If  more  than  one  of  these  values  is  given  for  the  same  level,  the  first 
non-zero  value  in  the  above  list  is  used.  A  dew-point  temperature  of  zero  is  a 
valid  input  and  is  assumed  if  all  the  water  vapor  parameters  are  left  zero.  To 
specify  no  water  vapor,  specify  any  negative  value  for  the  volume  mixing  ratio. 
(The  dew  point  temperature  should  not  be  confused  with  the  wet  bulb  temperature 
of  a  wet  and  dry  bulb  thermometer. ) 

If  the  volume  mixing  ratios  for  the  uniformly  mixed  gases  (K  =  2  =  CO,,, 

4  =  NgO,  5  =  CO,  6  =  CH^,  7  =  O,,)  are  not  supplied,  then  the  following  values  are 
used: 


Default  Volume-mixing  Ratios 


co2 

n2° 

CO 

ch4 

°2 

322  X 10"6 

0.  27  X  10'6 

0.  19  X  10'6’ 

1.5  X  10'6 

0.20948 

These  default  values,  especially  for  CO,  are  different  from  those  used  to  calculate 
the  densities  for  models  1  through  6  taken  from  Optical  Properties  of  the  Atmos- 
phere.  Third  Edition,  If  no  profile  for  ozone  is  supplied,  the  ozone  density  is 
left  at  zero.  To  specify  a  zero  density  for  a  gas,  read  in  any  negative  value  for 
the  volume  mixing  ratio. 

3.1.2  OUTPUT 

The  program  output  consists  of  a  descriptive  report  written  to  UNIT  =  6  and 
optionally,  the  layer-by-layer  results  written  to  UNIT  =  7.  See  the  sample  output 
following  for  examples  of  both  outputs.  The  report  on  UNIT  =  6  is  largely  self- 
explanatory.  It  should  be  noted,  however,  that  the  absorber  amounts  for  a  layer 
are  for  a  single  pass  through  the  layer  even  if  the  path  passes  through  the  layer 
twice,  as  for  a  tangent  path.  The  total  amount  listed  does  account  for  the  two 
passes  through  a  layer.  Also,  the  parameter  ZETA  in  the  table  of  FASCODE 
output  layer  boundaries  is  defined  as  the  ratio  of  the  Lorentz  to  the  Lorentz  plus 
Doppler  halfwidths  (at  half  height). 

The  file  written  to  UNIT  =  7  consists  of,  first  of  all,  a  card  with  the  number 
of  layers  to  follow  and  70  characters  describing  the  atmospheric  profile  and  the 
path.  Next  is  the  layer-by-layer  data  on  two  cards  or  more  per  layer.  Card  1 
contains  the  mean  pressure,  temperature,  ICNTRL,  and  a  20-character  layer 
description  field.  Card  2  contains  the  molecular  absorber  amounts  in  the  order 
shown  in  Table  2  with  the  following  exception.  The  amount  in  the  eighth  position 
is  for  N2,  which  is  used  by  FASCODE  to  calculate  foreign  broadened  water-vapor 
continuum.  The  amounts  for  the  remaining  molecules  start  in  position  9  beginning 
with  molecule  number  8  (NO).  The  ICNTRL  parameter  is  used  to  describe  the 
relationship  between  that  layer  and  the  rest  of  the  path  and  is  illustrated  in  Fig¬ 
ure  19.  For  a  tangent  path,  the  layers  that  the  path  traverses  twice  (the  sym¬ 
metric  layers)  have  ICNTRL  =  2.  The  asymmetric  layers  (if  any)  on  the  near 
side  of  HI  have  ICNTRL  =  1,  while  the  asymmetric  layers  (if  any)  on  the  far  side 


ICNTRL  ICNTRL 


Figure  19.  The  Parameter  ICNTRL  for  Two  Tangent  Paths 


of  HI  have  ICNTRL  =  3.  For  a  path  that  is  not  a  tangent  path,  then  for  a  looking 
up  case  (HI  less  the  H2)  ICNTRL  =  3  and  for  a  looking  down  case,  ICNTRL  =  1. 

For  a  horizontal  path  ICNTRL  =  0, 

3.2  Sample  Input  and  Output 

The  input  and  output  for  four  sample  cases  is  listed  in  Table  4.  Case  1, 
shown  in  Table  4a,  models  the  conditions  of  a  set  of  measurements  taken  at  the 
South  Pole.  10  These  measurements  were  taken  by  a  ground  based  instrument  at 
2.  9  km  elevation  looking  at  the  sun,  with  a  solar  zenith  angle  of  67.  7°.  On  Card  1, 
the  Subarctic  Winter  Atmosphere  (MODEL  =  5)  was  selected  because  it  contains 
the  least  amount  of  water  vapor.  ITYPE  =  3  selects  a  slant  path  from  HI  to  the 
top  of  the  atmosphere  profile,  here  100  km.  The  remaining  parameters  on  Card  1 
are  left  zero  to  select  the  defaults.  In  particular,  IBND  =  0  causes  the  program 
to  generate  its  own  output  layers  on  the  basis  of  the  parameters  on  Card  4. 

On  Card  2,  HI  is  the  altitude  of  the  observer,  here  2. 9  km,  and  ANGLE  is 
the  measured  zenith  angle  at  HI.  The  other  parameters  are  left  blank  and  are 
calculated  by  the  program.  On  Card  3,  the  initial  and  final  wavenumbers  are 
simply  averaged  and  the  average  value  is  used  to  calculate  the  index  of  refraction 
and  to  produce  the  output  layering.  Card  4  is  left  blank  to  select  the  defaults  that 
are  2.0,  15.0,  and  30.  0  for  AVTRAT,  TDIFF1  and  TDIFF2  respectively. 

The  first  page  of  the  output  for  this  case  simply  echoes  the  input  cards  and 
shows  the  supplied  default  values.  A  list  of  the  atmospheric  profiles  follows. 

Next  the  path  parameters  are  shown  reduced  to  the  standard  form  HI,  H2,  ANGLE, 
PHI,  HMIN,  and  LEN:  any  allowed  set  of  parameters  (see  Table  3)  is  reduced  to 
this  form.  The  output  layer  boundaries  generated  internally  are  shown  next. 

These  boundaries  satisfy  the  requirements  that:  (1)  the  ratio  of  the  average  Voigt 
width  across  a  layer  is  less  than  AVTRAT  and,  (2)  the  temperature  difference 
across  a  layer  is  less  than  TDIFF.  The  value  of  TDIFF  at  any  altitude  is  found 
by  exponentially  interpolating  TDIFF1  and  TDIFF2  to  that  altitude.  A  selected 
boundary  is  always  rounded  down  to  the  nearest  0, 1  km.  In  this  case  the  temper¬ 
ature  criterion  determines  the  thickness  of  the  first  two  layers  while  the  Voigt 
ratio  determines  the  next  five.  The  Voigt  ratio  algorithm  is  only  approximate  so 
that  the  actual  Voigt  adn  may  be  slightly  more  than  AVTRAT,  The  parameter 
ZETA  is  the  ratio  of  the  oorentz  to  the  Lorentz  plus  Doppler  halfwidths. 


10.  Blatherwick,  R.D.,  Murcray,  F.J.,  Murcray,  F.H.,  Goldman,  A.,  and 
Murcray,  D.  G.  (1982)  Atlas  of  south  pole  IR  solar  spectra,  Appl.  Opt, 
21:2658-2659. 
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Table  4b.  Sample  Input  and  Output  -  Case  2 
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Sample  Input  and  Output  -  Case  2  (Contd) 


SCOCE  LAYER  BOUNDARIES  PRODUCED  8Y  THE  AUTOMATIC  LAYERING  ROUTINE  AllTLAY 
IE  USER  SHOULD  EXAMINE  THESE  BOUNDARIES  AND  MODIFY  THEM  IF  APPROPRIATE 
IE  FOLLOWING  PARAMETERS  ARE  USED: 


ALZERO  *  .100  CM— 1  »  AVERAGE  LORENTZ  WIDTH  AT  STP 

AVMWT  *  36.00  =  AVERAGE  MOLECULAR  WEIGHT 

VBAR  »  825.00  CM-1  =  AVERAGE  WAVENUMBER 


Sample  Input  and  Output  -  Case  2  (Contd) 
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Sample  Input  and  Output  -  Case  2  (Contd) 
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Input  and  Output  -  Case  2  (Contd) 


Sample 


H2  =  0.0000  KM 

ANGLE  =  180.0000  OEG 

RANGE  *  0.0000  KM 


The  following  two  pages  trace  the  refracted  path  through  the  atmosphere, 
starting  from  the  lowest  point  along  the  path.  The  layer  boundaries  for  this  cal¬ 
culation  are  the  result  of  merging  the  atmospheric  profile  boundaries  with  the 
output  layer  boundaries,  from  HM1N  to  HMAX.  The  column  labeled  THETA  shows 
the  path  zenith  angle  at  the  bottom  of  that  layer,  while  DRANGE  Is  the  curved  path 
length  through  the  layer.  DBETA  Is  the  earth-centered  angle  subtended  by  that 
layer.  PHI  Is  the  arrival  angle  at  the  top  of  the  layer,  while  DBEND  Is  the 
refractive  bending  In  the  layer.  PBAR  and  TBAR  are  the  density-weighted  pres¬ 
sure  and  temperatures  for  the  layer,  while  RHOBAR  Is  the  average  density.  The 
next  table  lists  the  amounts  for  each  gas  for  each  layer,  plus  the  total  for  the 
path. 

The  last  page  prints  a  summary  of  the  path  calculation  then  the  amounts  for 
the  output  layers.  Note  that  the  amounts  for  HgO  are  zeroed  out  above  32.3  km 
because  less  than  0. 1  percent  of  the  total  HgO  amount  for  this  path  lies  above 
32.3  km.  The  amounts  for  all  the  other  molecules  except  Og  are  zeroed  out  above 
49. 0  km  for  the  same  reason.  Finally,  the  layers  above  78. 1  km  are  eliminated 
entirely  since  99.  9  percent  of  the  amounts  for  all  the  molecules  lie  below  this 
altitude.  This  zeroing  option  can  reduce  the  computation  time  for  a  ltne-by-ltne 
calculation.  The  option  can  be  suppressed  by  specifying  NOZERO  =  1  on  Card  1. 

Case  2,  shown  In  Table  4b,  models  the  conditions  of  a  stratospheric  balloon- 
borne  experiment  looking  at  the  sun  as  it  sets. 11  On  Card  1,  MODEL  =  7  selects 
a  user-supplied  atmospheric  profile,  ITYPE  =  3  selects  a  slant  path  to  space, 
and  KMAX  =  20  selects  20  molecular  species,  the  maximum  allowed.  On  Card  2, 
HI  =  33  km  is  the  altitude  of  the  balloon  and  ANGLE  =  94. 88  deg  is  the  apparent  or 
measured  zenith  angle  of  the  sun.  The  reported  zenith- angle  of  95. 3  deg  is  the 
astronomical  zenith  angle  for  a  straight  line  to  the  sun.  The  apparent  zenith  angle 
was  found  by  iteration  of  the  program  until  the  apparent  zenith  angle  (ANGLE) 
plus  the  total  bending  (BENDNG)  equaled  the  astronomical  zenith  angle. 

Autolayering  is  again  selected  but  now  the  parameters  AVTRAT,  TDIFF1, 
and  TDIFF2  are  supplied  on  Card  4  as  2.  0,  50.  0,  and  50. 0  respectively.  The 
large  values  of  TDIFF1  and  TD1FF2  will  generate  a  relatively  small  number  of 
thick  output  layers.  This  layering  is  useful  for  initial  or  survey  line-by-line  cal¬ 
culations  since  the  time  of  the  calculation  is  related  to  the  number  of  layers. 

More  accurate  calculations  may  require  more  layers:  the  user  must  experiment 
with  different  layerings  to  determine  the  minimum  number  of  layers  consistent 
with  his  accuracy  requirements. 

11.  Goldman,  A.,  Blatherwick,  R.  D. ,  Murcray,  F.J.,  Van  Allen,  J.W., 
Murcray,  F.H.,  and  Murcray,  D.G.  (1982)  Atlas  of  stratospheric  IR 
absorption  spectra,  Appl.  Opt.  21:1 163 -11 64. 


Using  a  value  of  AVTRAT  larger  than  2.  0  will  also  generate  thick  output 
layers.  However,  due  to  the  layer  to  layer  merging  scheme  used  in  FASCODE, 
layers  generated  by  a  value  of  AVTRAT  greater  than  2. 0  may  be  inconsistent  with 
FASCODE. 

The  user-supplied  atmospheric  profile  is  read  in  after  Card  4.  In  this  case, 
the  temperature  profile  is  from  the  U.  S.  Standard  Atmosphere  1976  while  the 

volume  mixing  ratios  up  to  50  km  for  the  various  gases,  except  CO„,  are  from 

12  " 

Smith  (see  also  Appendix  A).  Above  the  50  km  only  a  water  vapor  concentration 

is  given:  the  mixing  ratios  for  the  "uniformly  mixed  gases'1  COg,  NgO,  CO,  CH^, 

and  Og  revert  to  their  default  values.  Note:  the  program  does  not  check  whether 

the  atmosphere  is  in  hydrostatic  equilibrium. 

Following  the  atmospheric  profile  are  the  slant  path  parameters  in  standard 
form.  This  path  passes  through  a  tangent  height  of  9. 152  km.  Next  comes  the 
internally-generated  FASCODE  output  layer  boundaries;  note  that  the  ratio  of  the 
Voigt  halfwidths  controls  the  layering  up  to  40  km.  The  rest  of  the  output  is 
straight  forward  and  self-explanatory. 

Case  3,  shown  in  Table  4c,  illustrates  the  use  of  user-supplied  output  layers, 
the  NOZERO  option,  and  of  the  short  form  of  the  output.  On  Card  1,  IBND  is  set 
to  the  number  of  user-supplied  output  boundaries,  25  in  this  case.  The  altitudes 
are  then  read  in  after  Card  3.  The  NOPRNT  =  1  option  suppresses  the  printing  of 
the  tables  of  the  atmospheric  profile  and  ray  trace  calculation.  The  NOZERO  =  1 
option  preserves  the  amounts  for  all  the  molecules  for  all  the  layers.  This  option 
is  important,  for  example,  when  calculating  the  radiance  measured  looking  down 
from  space,  where  the  contribution  from  a  high  but  sparse  layer  can  be  significant. 
The  particular  case  run  here  applies  to  calculating  weighting  functions  for  tem¬ 
perature  sounding  from  a  satellite  looking  straight  down  from  space.  Note  also 
that  the  program  resets  HI  from  the  input  value  500  km  to  100  km,  which  is  the 
altitude  of  the  highest  boundary  in  the  atmospheric  profile. 

The  last  case,  shown  in  Table  4d,  illustrates  the  use  of  HI,  HI,  and  RANGE 
to  describe  the  path.  The  program  calculates  ANGLE  from  HI,  H2,  and  RANGE 
assuming  no  refraction,  and  then  traces  out  the  path  using  HI,  H2,  and  ANGLE. 
Due  to  refraction  the  resultant  RANGE  is  significantly  larger  than  the  input  value. 
Also  shown  is  the  output  on  TAPE7  selected  by  the  IPU=1  option  on  Card  1.  This 
output  is  in  a  form  suitable  for  direct  input  to  FASCODE. 


12.  Smith,  M.  A.H.  (1982)  Compilation  of  Atmospheric  Gas  Concentration 
Profiles  From  0  to  50  km,  NASA  TM -83289, 


3.3  Program  Structure 

The  program  consists  of  a  simple  driver  program,  called  FSCATM,  and  20 
subroutines.  Table  5  lists  the  program  units  and  their  functions  and  Figure  20 
shows  the  relationship  among  the  principal  ones.  Each  subroutine  contains  com¬ 
ment  cards  describing  its  function.  The  comments  in  ATMPTH  contain  a  concise 
description  of  the  program  usage.  The  program  is  modular  so  that  the  user  may 
easily  modify  it  to  suit  any  particular  needs. 


Table  5.  Program  Units  and  Their  Functions 


Program  Unit  Function 

FSCATM  Interface  between  FASCODE  and  ATM  PTH 

ATMCON  Block  data:  Initializes  various  program  constants 

ATMPTH  Main  subroutine:  Handles  I/O 

MLATMB  Block  data:  Stores  reference  profiles 

MLATM  Model  atmosphere:  Sets  up  atmospheric  profile 

NSMDL  Non-standard  model:  Inputs  user  profiles 

WATVAP  Calculates  the  water  vapor  number  density  for  non¬ 

standard  conditions 

GEOINP  Reduces  the  input  slant  path  parameters  to  the  standard 

form:  HI,  H2,  ANGLE,  LEN 

REDUCE  Eliminates  slant  path  segments  that  extend  about  the 

highest  profile  altitude 

FDBETA  Calculates  angle  given  the  input  parameters  HI,  H2, 

BETA 

EXPINT  Exponential  interpolation 

FNDHMN  Calculates  HMIN  =  Minimum  altitude  along  the  path 

(Tangent  altitude  if  any) 

FINDSH  Finds  the  layer  containing  a  given  altitude 

SCALHT  Calculates  the  scale  height  of  the  refractivity 

ANDEX  Calculates  the  index  of  refraction  at  a  given  altitude 

RADREF  Calculates  the  radius  of  curvature  due  to  refraction 

RFPATH  Drives  the  path  calculation  over  all  the  layers 

FILL  Sets  up  a  profile  extending  from  HMIN  to  HMAX 

ALAYER  Calculates  the  path  and  the  amounts  through  one  layer 

AUTLAY  Layers  the  atmosphere  from  HMIN  to  HMAX  based  on 

AVTRAT,  TDIFF1,  and  TDIFF2 

HALFWD  Calculates  LOR  ENTZ,  DOPPLER,  and  VOIGT  half¬ 

widths  and  ZETA  given  P,  T,  and  VBAR 
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Figure  20.  Structure  Chart  Showing  the  Major  Subroutines 


3.4  Portability 

The  program  FSCATM  runs  on  a  CDC  6600  computer  (a  60  bit  word  computer) 
with  a  FORTRAN  77  (FORTRAN  V)  compiler.  It  is  also  designed  to  be  compatible 
with  minor  modifications  with  32  bit  word  computer  in  single  precision  and  with 
FORTRAN  66  (FORTRAN  IV).  To  run  on  a  32  bit  word  computer,  variables  con¬ 
taining  character  data  must  be  declared  DOUBLE  PRECISION  (CHARACTER  *8 
will  not  work  since  some  of  these  variables  are  carried  in  COMMON  along  with 
non-character  variables).  The  required  statements  for  this  are  supplied  in  the 
program  with  the  characters  'C&'  in  Columns  3  to  3.  To  compile  under  CDC 
FORTRAN  IV,  all  single  quotes  '  must  be  replaced  with  double  quotes  ",  To  con¬ 
vert  the  subroutine  FSCATM  to  a  stand-along  program,  enable  the  statements  in 
FSCATM  with  the  characters  'CP'  in  Columns  1  and  2,  and  include  the  subrou¬ 
tines  from  ATM  PTH  to  HALFWD.  The  user  must  also  supply  subroutines  DATE 
and  TIME,  which  return  the  date  and  time  in  A8  format. 

When  the  sample  cases  described  in  Section  3.  2  are  run  on  a  32  bit  word 
computer  in  single  precision,  the  results  may  be  different  in  the  third  or  fourth 
decimal  place  compared  with  the  sample  output.  This  precision  is  generally  suf¬ 
ficient  considering  the  accuracy  of  the  models  and  of  the  data. 
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3.5  Availability 

FSCATM  is  available  as  a  part  of  the  FASCOD1C  package.  This  package 
includes  the  program  FASCOD1C  plus  various  other  associated  programs  and 
sample  input  and  output.  The  package  is  available  on  tape  from 

National  Climatic  Center,  NOAA 

Environmental  Data  Service 

Federal  Building 

Asheville,  NC  28801 

(704)-258-2850,  ex  682  (Ms  Yolanda  Goodge) 
and  presently  costs  $98. 00.  The  users  guide  for  FASCOD1C  is  available  from 

S.  A.  Clough 

AFGL/OPI 

Hanscom  AFB  MA  01731 

An  earlier  version  of  FSCATM,  called  FSCDATM,  was  distributed  as  a  part 
of  the  FASCOD1B  package.  FSCATM  is  a  revision  of  FSCDATM  with  a  number  of 
improvements  and  fixes.  In  particular,  FSCDATM  would  not  work  properly  on  a 
32  bit  word  computer  in  single  precision  for  tangent  paths.  This  bug  has  been 
fixed  in  FSCATM. 

3.6  Errata  for  FSCATM 

As  distributed  with  FASCOD1C,  FSCATM  contained  six  known  errors.  The 
corrections  are  as  follows: 

1.  Line  24740  (line  420  of  ATMPTH) 

IF(VMIX(I).GT.0.0)  DENSTY (K,  1)  =  VMIX(K)*RHOBAR*l.  0E-6 
should  read 

IF(VMIX(K).  GT.  0.  0)  DENSTY(K,  1)  =  VMIX(K)*RHOBAR*l.  0E-6 

2.  After  line  25300  (line  476  of  ATMPTH),  insert 

NLAYERS  =  1 

WN2L(1)  =  AMTAIR  *  VMIXN2  *  1.0  E-6 

3.  Line  25240  (line  488  of  ATMPTH) 

1  (AMOUNT(K,  1),  K=l,  KMAX) 
should  read 

1  (AMOUNT(K,  1),  K=l,  7),  WN2L(1),  (AMOUNT(K,  1),  K=8,  KMAX) 


4.  Lines  28540  to  28550  (lines  800  to  801  of  ATM  PTH) 

IF(IPUNCH.  EQ.  1)  WRITE(IPU,  70)(AMOUNT(K,  L),  K=l,  KMAX) 

70  FORMAT(1P8E10.2) 
should  read 

IF(IPUNCH.  NE.  1)  GO  TO  470 

WRITEdPU,  70)(AMOUNT(K,  L),  K=l,  7),  WN2L(L) 

70  FORMAT  (1P8E10.  2) 

IF(KMAX.  GT.  7)WRITE(IPU,  70)(AMOUNT(K,  L),  K=8,  KMAX) 

5.  In  FORMAT  statements  30,  35,  and  37  of  ATMPTH,  the  '20X'  should  be 

changed  to  'T201. 

6.  Line  44970  (line  143  of  ALAYER) 

TPSUM(J)  =  TPSUM(J)  +  0.  5*DS#(PA+PB) 
should  read 

TPSUM(J)  =  TPSUM(J)  +  0.  5*DS*(PA+PB)/GCAIR 

Corrections  1  and  2  are  required  for  the  program  to  run  a  horizontal  path  properly. 
Corrections  3  and  4  are  required  to  write  the  proper  layer  information  to  TAPE7, 
Correction  5  affects  only  the  printed  output  of  the  total  air  amounts.  Correction  6 
fixes  an  error  in  the  calculation  of  the  average  temperature  for  a  very  thin  layer: 
most  paths  are  unaffected  by  this  error.  These  corrections  have  been  incorpora¬ 
ted  into  the  listing  contained  in  this  report,  with  an  in  column  74. 
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3.7  Progran  Luting 
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CP 


subroutine  FSCATM 

PROGRAM  FSCATM 


020000 
CP02001 0 


020020 


FSCATM  IS  AN  ATMOSPHERIC  RAY  TRACE  PROGRAM. 

IT  CREATES  AND  FORMATS  THE  ATMOSPHERIC  INPUTS  FOR  THE  AFGl 
LINE-BY-LINE  TRANSMI TTANCE/RAOIANCE  PROGRAM  FASCODE. 


SEE  THE  COMMENTS  IN  SUBROUTINE  ATMPTH  FOR  DETAILED  INSTRUCTIONS  ON 
THE  USAGE  OF  THE  ATMOSPHERIC  INPUTS. 


TO  CONVERT  THE  AIR  MASS  MODULE  TO  A  STAND  ALONE  PROGRAM, 
INCLUDE  THE  SUBROUTINES  FROM  FSCATM  TO  HALFWD,  AND 
ENABLE  THE  CAROS  THAT  8EGIN  WITH  'CP  '. 


TO  RUN  THE  PROGRAM  ON  A  32  BIT  WORD  MACHINE,  ENABLE  THE  CARDS 
THAT  BEGIN  WITH  'CS 


Ci 


ca 


C*****01**+****4**+tt+**********-*+*+*++***********+*+***************** 

COMMON  /PATHD/  PBAR(37 ) , T BAR (37) .AMOUNT (20,37) ,WN2L( 37 ) , 

C  DVL(37),WT0TL(37) , ALBL<37) ,ADBL(37) , AVBLI37) ,H20SL(3?) . 

C  !CNTRL(37) , ITYL(37) ,SECNTA(37) . ALTB(37) , ALTT (37) ,HT1 ,HT2 
COMMON  /MAIN/  NWDF IL, KFILE, KPANE L, LI NFIL.PO, TEMPO, NLAYRS, 

C  H20SLF,WT0T,ALBAR,ADBAR,AVBAR.AVFIX,LAYRFX,SECNT0, 

c  sample, alfalo.avmass 

OOueLE  PRECISION  XIO, SECANT, HMOLIO.YID  ,HM0L 

COMMON  /FILHOR/  XID( 1 0 ) .SECANT. PAVE, TAVE,HM0LID( 20) ,WK(20) , WN2 , 

C  DV.V1 ,V2.TB0UND,EMISIV,FSC0ID(17) , NMOL, LAYER, 

C  YP.YID(IO) 

EQUIVALENCE  (FSCDID(5).t£MIT) 

DOUBLE  PRECISION  HMOLS 
COMMON  /HMOLS/  HM0LS(20) 

COMMUN  / I F I L /  1R0.IPR.IPU 

COMMON  /PARMTR/  PI , DEG , GCAIR . RE , DELTAS , 2MIN , 2MAX , IMAX , IMOD , I  UMAX , 
1  1CU1MX , I  PATH , 1M0DMX , I  DIM, KDIM , KMXNOM , KMAX , NOPRNT 
DOUBLE  PRECISION  HOATE.HTIME 
C*«»*»IRO,  iPP.  IPU  ARE  UNIT  NUMBERS  FOR  INPUT,  OUTPUT,  PUNCH 
CP  DATA  I  RD/5/ . IPR/6/ , IPU/7/ , IEMIT/0/ 

OPEN( UNI r-G,FILE=' INPUT' ,5TA i US= 'OLO' ) 

OPEN ( UNI T=6. FI l£*' OUTPUT • ) 

CALL  DATE(HOATE) 

CALL  TIME(HTIME) 

WRI TE( IPR. 900 )  HOATE.HTIME 

FORMAT ( ' 1 ' . 20X , ' "PROGRAM  FSCATM*»**»  • , AIO.SX, A10 , /// ) 


Ci 


CP 

CP 


9C0 

C*  *  •  •  * 


CALL  ATMPTII(IEMIT) 


C»**** 


30 


CP 

C 


SECANT  *  1 .0 

NMOL  =  KMAX 

DO  30  M=  1 , KMAX 

HMOLID(M)=HMOLS(M) 

RCTURN 

STOP 


END 


77 


020030 

020040 

020050 

020060 

020070 

C20080 

020090 

020100 

020110 

020120 

020130 

020140 

020150 

020160 

020170 

020180 

020190 

020200 

020210 

020220 

020230 

020240 

CS020250 

C20260 

020270 

020280 

020290 

C&020300 

020310 

020320 

020330 

020340 

CS020350 

020360 

CP020370 

CP020380 

CP020390 

020400 

020410 

020420 

020430 

020440 

020450 

020460 

020470 

020480 

020490 

020500 

020510 

CP020S20 

020530 

020540 
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SUBROUTINE  ATMPTM(!£M1T) 


ATMPTH  (ATMOSPHERIC  PATH) 


WILLIAM  0.  GALLERY 
FRANCIS  X.  KNEIZYS 
SHEPARD  A.  CLOUGH 


AIR  FORCE  GEOPHYSICS  LAB 
OPTICAL  PHYSICS  DIVISION 
HANSCGM  AFB 
8EDF0RD,  MA.  0)731 
617-861-4774 


REVISED  JULY,  1982 


USER  INSTRUCTIONS: 

ATMPTH  CALCULATES  THE  DENSITY  WEIGHTED  MEAN  TEMPERATURE  AND 
PRESSURE  AND  THE  INTEGRATED  ABSORBER  AMOUNTS  ( IN  MOLECULES 
CM-2)  FOR  EACH  LAYER  ALONG  A  PATH  THROUGH  A  LAYERED 
ATMOSPHERE,  INCLUDING  THE  EFFECTS  OF  REFRACTION  AND  THE  EARTH’S 
CURVATURE.  ATMPTH  IS  DESIGNED  TO  PREPARE  THE  ATMOSPHERIC  INPUTS 
TO  THE  PROGRAM  FASC001  WHICH  DOES  A  LINE-BY-LlNE  CALCULATION  OF 
ATMOSPHERIC  TRANSMITTANCE  OR  RADIANCE  AND  IS  DESCRIBED  IN 
REFERENCE  (1).  THE  CONTROL  CARDS  REQUIRED  TO  RUN  ATMPTH  ARE 
DESCRIBED  LATER  IN  THESE  COMMENTS.  A  DETAILED  DESCRIPTION  OF 
OF  THE  ALGORITHM  USED  HERE  AND  A  DISCUSSION  OF  THE  EFFECTS  OF 
THE  EARTH’S  CURVATURE  ANO  REFRACTION  ARE  GIVEN  IN  REFERENCE  (2). 

THE  DEFINITIONS  ANO  USES  OF  THE  PATH  PARAMETERS  I  TYPE,  HI,  H2, 
ANGLE.  RANGE,  BETA,  AND  LEN  ARE  THE  SAME  AS  THOSE  DESCRIBED  IN 
REFERENCE  (3):  HOWEVER  THE  SUBROUTINES  WHICH  CALCULATE  THE 
REFRACTEO  PATH  ARE  COMPLETELY  DIFFERENT  FROM  THOSE  IN  THE 
VERSIONS  OF  LOWTRAN,  UP  TO  LOWTRAN  5. 

THERE  ARE  SIX  BUILT  IN  ATMOSPHERIC  PROFILES  WHICH  DEFINE  THE 
PRESSURE,  TEMPERATURE,  AND  THE  DENSITIES  OF  THE  SEVEN  MOLECULAR 
SPECIES  H20 ,  C02.  03,  N20,  CO,  CH4,  AND  02  ON  THE  AFGL 
ATMOSPHERIC  LINE  PARAMETERS  COMPILATION  AT  33  STANDARD 
ALTITUDES.  THESE  MODEL  ATMOSPHERES  ARE  THE  SAME  AS  THOSE 
DESCRIBED  IN  REFERENCE  (4),  ALTHOUGH  THE  DENSITIES  ARE  IN 
DIFFERENT  UNITS.  THE  USER  MAY  ALSO  INPUT  AN  ATMOSPHERIC 
PROFILE  AS  DESCRIBED  LATER  (SEE  ALSO  ThE  COMMENTS  JM 
THE  SUBROUTINE  r.'SMDL)  AND  INCLUDE  UP  TO  13  ADDITIONAL 
SPECIES  CORRESPONDING  TO  THE  MOLECULES  ON  THE  AFGL  TRACE  GAS 
COMPILATION. 


020550 
C20560 
020570 
020580 
020590 
020600 
020610 
020620 
020630 
020640 
020650 
020660 
020670 
020680 
020690 
020700 
020710 
020720 
020730 
020740 
020750 
020760 
020770 
020780 
020790 
020600 
020810 
020820 
020830 
C20840 
020850 
020860 
020870 
020880 
020890 
020900 
020910 
020920 
020930 
020940 
020950 
020960 
020970 
020980 
020990 
021000 
021010 
021020 
021030 
021040 
021050 
021060 
021070 
021080 
021090 
021100 
021110 
021120 
021 120 
021140 
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THE  PRINCIPAL  OUTPUT  CONSISTS  OF  THE  INTEGRATED  ABSORBER  AMOUNTS 
FOR  A  SET  OF  LAYERS  TO  BE  INPUT  TO  THE  LINE-BY-LINE  CALCULATION. 
THE  NUMBER  OF  THESE  LAYERS  REPRESENTS  A  TRADEOFF  BETWEEN  ACCURACY 
AND  COMPUTATIONAL  SPEED  OF  THE  LINE-BY-LINE  CALCULATION.  THE 
USER  HAS  THE  OPTION  OF  INPUTTING  HIS  OWN  SET  OF  LAYER  BOUNDARIES 
OR  OF  LETTING  THE  SUBROUTINE  AUTLAY  GENERATE  THESE  LAYERS 
AUTOMATICALLY.  IF  THE  USER  INPUTS  HIS  OWN  BOUNDARIES,  THEY  NEED 
NOT  FALL  ON  THE  ATMOSPHERIC  PROFILE  BOUNDARIES  OR  INCLUDE  THE 
PATH  ENDPOINTS.  IF  AUTOMATIC  LAYERING  IS  SELECTED,  THE  USER  MAY 
SPECIFY  THE  MAXIMUM  HALFWIOTH  RATIO  ACROSS  A  LAYER  AND  THE 
MAXIMUM  TEMPERATURE  DIFFERENCE  ACROSS  A  LAYER. 

IT  IS  DIFFICULT  TO  SPECIFY  APRIORI  THE  RELATIONSHIP  BETWEEN 
THE  NUMBER  OF  LAYERS  AND  THE  ACCURACY:  I  HE  ACCURACY  DEPENDS  UPON 
SUCH  FACTORS  AS  THE  SPECTRAL  REGION,  THE  DISTRIBUTION  OF  THE 
MOLECULES  OF  INTEREST,  THE  PARTICULAR  PATH  TAKEN,  AND  WHETHER 
TRANSMITTANCE  OR  RADIANCE  IS  CALCULATED.  THE  LAYERING  CREATED 
BY  THE  OEFAULT  VALUES  OF  AVTRAT  (2.0)  AND  TDIFF1  (15.0  K)  AND 
T0IFF2  (30.0  K)  SHOULD  BE  CONSIDERED  A  POINT  OF  DEPARTURE  FOR 
SUBSEQUENT  CALCULATIONS.  THE  USER  SHOULD  THEN  EXPERIMENT  WITH 
DIFFERENT  LAYERING  UNTIL  THE  RESULTS  ARE  CONSISTENT  WITH 
HIS  ACCURACY  REQUIREMENTS. 

TO  SAVE  COMPUTER  TIME  IN  FASC0D1 ,  THE  LAYER  AMOUNTS  ARE  ZEROED 
OUT  WHEN 

1.  THE  CUMULATIVE  AMOUNT  FOR  THAT  LAYER  AND  ABOVE  IS  LESS 
THAN  0.1  PERCENT  OF  THE  TOTAL, 

AND 

2.  A.  TRANSMITTANCE  IS  CALCUALTED  ( I  EMIT  «  0) 

OR 

B.  RADIANCE  IS  CALCULATED  (IEMIT  •  1)  AND  THE  PATH  IS 
LOOKING  UP  (ICNTRL  =  3) 

02  IS  NOT  CONSIDERED  IN  THIS  SCHEME.  IF  THE  ABSORBER 
FOR  A  LAYER  FOR  ALL  THE  MOLECULES  (EXCEPT  02)  ARE  ZEROED 
OUT,  THEN  THAT  LAYER  AND  THOSE  ABOVE  ARE  ELIMINATED 

TO  CALCULATE  THE  AMOUNTS  FOR  THE  TRACE  GASES  (MOLECULES  8  THROUGH 
20)  THE  USER  MUST  INCREASE  KMAX  ON  CARO  1  AND  READ  IN  AN 
ATMOSPHERIC  PROFILE  (MUOEL  =■  7)  INCLUDING  THE  VOLUME  MIXING  RATIOS 
OF  THE  ADDITIONAL  MOLECULES. 


CONTROL  CAROS: 

FOUR  CONTROL  CAROS  CONTROL  THE  OPERAT ION  OF  THE  PROGRAM  WHILE 
OTHER  CAROS  MAY  BE  READ  IN  TO  DEFINE  NON-STANDARD  CONDITIONS.  THE 
FORMATS  OF  THESE  CARDS  AND  THE  MEANING  OF  THE  PARAMETERS  ARE 
DESCRIBED  AS  FOLLOWS: 

CONTROL  CARD  1:  MODE l .  ITYPE,  IBNO.  NOZcRO,  NOPRNT ,  KMAX, 

! PUNCH,  RE 
(7IS.SX.F1C. 4) 

MODEL  «  0:  USER  SUPPLIED  HORIZONTAL  PATH  PARAMETERS 
1 :  TROPICAL  MODEL  ATMOSPHERE 
2:  MIOLAT I  TUBE  SUMMER 
3:  MIOLATIT'JDE  WiHTER 
4 :  SUBARCTIC  SUMMER 
5:  subarctic  winter 
e:  U.S.  STANDARD,  19G2 


021  ISO 
021 160 
021170 
021180 
021190 
021200 
021210 
021220 
021230 
021240 
021250 
021260 
021270 
021280 
021290 
021300 
021310 
021320 
021330 
021340 
021350 
021360 
021370 
0213B0 
021390 
021400 
021410 
021420 
021430 
021440 
021450 
021460 
021470 
02 1460 
021490 
021500 
021510 
021520 
021530 
021540 
021550 
021560 
021570 
021580 
021590 
021600 
021610 
021620 
021630 
021640 
021650 
021660 
021670 
02 1680 
021690 
021700 
021710 
021720 
021730 
021740 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r* 

c 

c 

c 

c 


7:  USER  SUPPLIED  ATMOSPHERIC  PROFILE 
ITYPE  •  i:  HORIZONTAL  PATH  (CONSTANT  PRESSURE) 

2:  SLANT  PATH  FROM  HI  TO  H2 
3:  SLANT  PATH  FROM  HI  TO  SPACE 
IBNO  NUMBER  OF  BOUNDARY  ALTITUDES  FOR  THE  FASCOOt 

LAYERS:  IF  IBNO  GT  0,  USER  SUPPLIES  BOUNDARIES 
IF  IBNO  s  0,  AUTO  LAYERING  IS  SELECTED 
NOZERO  *1:  SUPRESSES  ZEROING  OF  SMALL  AMOUNTS. 

OEFAULT  =  0 

NOPRNT  »1 :  SELECTS  SHORT  PRINTOUT.  DEFAULT  *  0 
KMAX  NUMBER  OF  MOLECULAR  SPECIES.  DEFAULT  »  7 

IF  KMAX  LT  0,  A  RAY  TRACE  IS  DONE  BUT  NO  AMOUNTS 
ARE  CALCULATED 

IPUNCH  S 1 :  WRITE  LAYER  AMOUNTS  TO  UNIT  IPU=7.  OEFAULT  a  0 
RE  RADIUS  OF  THE  EARTH.  DEFAULTS: 

MODEL  =  1 .  RE  =  6378.39  KM 

2, 3, 6, 7.  RE  *  6371 .23  KM 
4,5,  RE  <  6356.91  KM 

THE  FORMATS  FOR  THE  REMAINING  CONTROL  CARDS  ARE  DIFFERENT 
DEPENDING  ON  WHETHER  THE  PATH  IS  HORIZONTAL  (ITYPE  «  1) 

OR  SLANT  (ITYPE  a  2  OR  3) 


FOR  A  SLANT  PATH  (ITYPE  *  2  OR  3): 

CONTROL  CARD  2:  HI ,H2 .ANGLE , RANGE, BETA , LEN 
( 5F 1 0 . 4, IS ) 

HI  ALTITUDE  OF  THE  OBSERVER  OR  RECIEVER  (KM) 

H2  ALTITUDE  OF  THE  OTHER  ENDPOINT  OF  THE  PATH  (KM): 

ANGLE  ZENITH  ANGLE  AT  HI  (DEGREES) 

RANGE  LENGTH  OF  THE  PATH  FROM  HI  TO  H2  (KM): 

BETA  EARTH  CENTERED  ANGLE  for  THE  PATH  HI  TO  H2  (DEG) 

LEN  =0,  SHORT  PATH;  si,  LONG  PATH  THROUGH  A  TANGENT : 

HEIGHT.  LEN  IS  USED  ONLY  WHEN  ANGLE  IS  GT  90.0 
AND  Hi  IS  GT  H2 .  DEFAULT  a  0. 

only  THREE  OF  THE  FIRST  FIVE  PARAMETERS  NEED  BE  SPECIFIED: 

FOR  EXAMPLE,  HI,  H2,  ANGLE.  OR  HI,  H2 ,  BETA.  OR  HI,  ANGLE,  RANGE. 
SEE  THE  COMMENTS  IN  THE  SUBROUTINE  GEOINP  OR  SCE  REFERENCE  (2) 

FOR  MORE  DETAILS  ON  THE  POSSIBLE  COMBINATIONS  OF  THESE  PARAMETERS 

CONTROL  CARO  3:  VI.  V2 

(2F10.3) 

VI, V2  INITIAL  AND  FINAL  WAVENUMBERS  FOR  USE 

IN  CALCULATING  THE  DOPPLER  HALFW1DTH  USED  IN 

creating  the  fascgde  layers  and  in  calculating 

the  INOSX  OF  REFRACTION  (CM-1) 

CONTROL  CARD  4:  (LAYERING) 

Ir  IBND  =  0  (AUTOLAYERING  SELECTED) 

AVTRAT, (01  FT  1 ,TUI"f2  (3F10.3) 

AVTRAT  S  ,Y.AX  VOIGT  WIOTH  RATIO  ACROSS  A  LAYER 
t)Ef AU1  T  -  2  0 

TOIFM  s  MAX  TEMP  DIFFERENCE  <K)  ACROSS  A  LAYER  AT  HM IN 

(slowest  altitude  along  the  path), 
default  -  is.o  K 


021750 
021760 
021770 
021780 
021790 
021800 
021810 
02 t 820 
021830 
021840 
02t850 
021860 
021870 
021880 
021890 
021900 
021910 
021920 
021930 
021940 
021950 
021960 
021970 
021980 
021990 
022000 
022010 
022020 
022030 
022040 
022050 
022060 
022070 
022080 
022090 
022100 
022110 
022120 
022130 
022140 
022150 
022160 
022170 
022180 
022190 
022200 
022210 
022220 
022230 
022240 
022250 
022260 
022270 
022280 
022250 
022300 
022310 
022320 
022330 
022340 


yooouououuyuyuooououuuuuuuuuouuuouuuyouuoouuuuuuuuuuuouuotjyu 


T0IFF2  «  MAX  TEMP  DIFFERENCE  (K)  ACROSS  A  LAYER  AT  HMAX  022350 
(.HIGHEST  ALTITUOE  ALONG  THE  PATH).  022360 

OEFAULT  .  30.0  X  022370 

022380 

IF  IBND  NE  0  (USER  SUPPLIED  FASC001  LAYER  BOUNDARIES)  022390 

022400 

(ZBND(IB), 18=1. IBND)  (8F10.3)  022410 

ZBND  ALTITUDES  OF  FASC0D1  LAYER  BOUNDARIES  022420 

022430 

IF  MODEL  =  7,  THE  INPUT  ATMOSPHERIC  PROFILE  IS  READ  IN  AFTER  022440 

CONTROL  CARD  4  IN  THE  FOLLOWING  FORMAT:  022450 

022460 

IMOD,  HEADER  (I5./.3A8)  022470 

IMOD  =  NUMBER  OF  LEVELS  IN  THE  PROFILE  022480 

HEADER  «  24  CHARACTER  HEADER  DESCRIBING  THE  PROFILE  022490 

022500 

Z, P , T , TO, RH, PPH20.0ENH20.AMSMIX  (8F10.3)  022510 

(VMIX(K) ,K=1 ,KMAX)  (8E10.3)  022520 

TWO  (OR  MORE)  CARD  IMAGES  FOR  EACH  OF  THE  IMOD  022530 

LEVELS.  SEE  COMMENTS  FOR  THE  SUBROUTINE  NSMDL  022540 

•  REGARDING  THE  DEFINITIONS  AND  USAGES  OF  THESE  022550 

PARAMETERS.  022560 

022570 

-  022580 

022590 

FOR  A  HORIZONTAL  PATH  -'.TYPE  =  1):  022600 

CONTROL  CARO  2:  022610 

FOR  MODEL  »  1  TO  7:  022620 

Z, RANGE  (2F10.3)  022630 

022640 

FOR  MODEL  =  0:  022650 

RANGE, P , T ,TD, RH , PPH20.DENH20. AMSMIX  (BF10.3)  022660 

(VMIX(K) ,K=1 ,XMAX)  (8E10.3)  022670 

WHERE  Z  AND  RANGE  ARE  THE  ALTITUDE  AND  RANGE  OF  0226B0 

THE  PATH,  BOTH  IN  KM.  FOR  MODEL  =  1  TO  7.  THE  022690 

PRESSURE.  TEMPERATURE,  AND  DENSITIES  ARE  022700 

INTERPOLATED  FROM  THE  MODEL  ATMOSPHERE.  FOR  022710 

MODEL  =  0,  SEE  THE  NOTES  FOR  THE  SUBROUTINE  022720 

NSMDL  FOR  THE  DEFINITIONS  AND  USAGES  OF  THE  022730 

PARAMETERS  IN  THIS  CASE.  IF  THE  VOLUME  MIXING  022740 

RATIO  OF  03  IS  NOT  SUPPLIED  FOR  MODEL  =  0.  IT  IS  022750 
COMPUTED  USING  A  VALUE  FOR  THE  VOLUME  022760 

MIXING  RATIO  CF  40.E-9.  022770 

022780 

CONTROL  CARDS  3  AND  4:  NOT  USEO  022790 

022800 

FOR  MODEL  7.  THE  INPUT  ATMOSPHERIC  PROFILE  IS  READ  IN  AFTER  022810 

CONTROL  CARD  2  AS  FOR  A  SLANT  PATH.  022820 

022830 

-  022840 

022850 

OUTPUT  :  022860 

022870 

THE  PRINTED  OUT-JT  IS  ON  FILE  IPR  t DEFAULT *6 ) .  SELECTING  022880 

N0PPNT.1  SUPRESSES  THE  PRINTING  OF  THE  ATMOSPHERIC  PROFILES  022890 

ANO  THE  LAYER-BY-LAYEfi  RESULTS  FOR  THE  REFRACTED  PATH.  022900 

IF  I  PUNCH  =  i,  THEN  THE  F1SCUD!  INPUT  DATA  IS  ALSO  PUT  ON  FILE  022910 

IPU  (0EFAULT.7)  AND  CONSISTS  OF  A  SINGLE  CAPO  IMAGE  GIVING  THE  022920 

NUMBER  OF  LAYERS  L.MAX  AND  A  70  CHARACTER  FIELD  DESCRIBING  1  tE  022930 

PROFILE  ANO  THE  PATH,  FOLLOWED  EY  TWO  (OR  MORE)  CARD  IMAGES  FOR  922940 
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EACH  OF  THE  LMAX  LAYERS  022950 

022960 

CARO  1 :  LMAX, LABEL  (tS.SX.A’O)  022970 

LMAX  «  NUMBER  OF  FASCGD1  LAYERS,  MAY  DIFFER  FROM  022980 

IBND  DEPENDING  ON  THE  PATH.  022990 

LA8EL  •  70  CHARACTER  FIELD.  023000 

023010 

CARD  2:  PAVE.TAVE, ICNTRL, LAYRID  023020 

(2F10.4,10X,I5,25X,  A20)  023030 

PAVE  *  AVERAGE  PRESSURE  (MB)  023040 

TAVE  «  AVERAGE  TEMPERATURE  (K)  023050 

ICNTRL  :  IF  THE  PATH  DOES  NOT  GO  THROUGH  A  TANGENT  HEIGHT,  023060 
IF  H1.LT.H2  ICNTRL  «  3  023070 

IF  H1.GT.H2  ICNTRL  ■  1  023080 

IF  THE  PATH  GOES  THROUGH  A  TANGENT  HEIGHT.  THEN  023090 

FOR  THE  LAYF.RS  FROM  THE  TANGENT  HEIGHT  TO  023100 

MIN(Ht,H2),  ICNTRL  ■  2  023110 

FOR  THE  LAYERS  (IF  ANY)  FROM  M!N(H1,H2)  023120 

TO  HI ,  ICNTRL  «  1  023130 

FOR  THE  LAYERS  (IF  ANY)  FROM  MIN(H1,H2)  023140 

TO  H2,  ICNTRL  *  3  023150 

FOR  A  HORIZONTAL  PATH,  ICNTRL  »  0  023160 

LAYRID:  20  CHARACTER  FIELD  GIVING  THE  BOUNDARY  023170 

ALTITUDES  ( ITYPE  2  OR  3)  OR  PANGE  AND  023180 

ALTITUDE  (ITYPE  1)  023190 

023200 

CARD  31  (AMOUNT(K) ,K«1 ,KMAX)  023210 

(1P8E10.2)  023220 

AMOUNT(K)  INTEGRATED  ABSORBER  AMOUNT  FOR  THE  K'TH  023230 

MOLECULAR  SPECIES  (MOLECULES  CM-2)  023240 

023250 

CARDS  2  AND  3  ARE  REPEATED  JNITL  LMAX  LAYERS  ARE  SPECIFIED.  0232G0 

023270 

-  023230 

C23290 

REFERENCES:  023300 

023310 

(1)  FASC0D1  -  A  USERS'  GUIOE  (AVAILABLE  FROM  S.A.  CLOUGh  AT  023320 

THE  ABOVE  ADDRESS)  023330 

SEl  ALSO:  023340 

FASCODE  -  FAST  ATMOSPHERIC  SIGNATURE  CODE  023350 

(SPECTRAL  TRANSMITTANCE  AND  RADIANCE)  023360 

AFGL-TR- 78-008'  02337C 

023380 

(2)  FSCATM  -  A  FORTRAN  PROGRAM  TO  CALCULATE  AIR  MASS  FOR  023390 

INFRAREO  RADIATIVE  TRANSFER  (AFGl.  REPORT-  IN  PREPERAT II  Nj  023400 

023410 

023420 

(3)  ATMOSPHERIC  TRANSMITTANCE/RAOIANCE:  023430 

COMPUTER  CODE  LOWTRAN  5  023440 

AFGL-TR-B0-0067  023450 

023460 

(4)  OPTICAL  PROPERTIES  OF  THE  ATMOSPHERE  (THIRD  EDITION)  023470 

AFGL-TR-72-0497  023480 

023490 
023500 

. . 023510 

023520 

COMMON  /IF I  L/  MO.IPR.IPU  023530 

COMMON  /PARMTR/  P 1 ,  DEG ,  GCA  III ,  RE ,  DEL .  '5 .  ZMIN ,  ZMAX ,  IMAX ,  IMOO ,  1 31.1AT ,  023S40 


1  IOUTMX, IPATH.IMODMX, IDIM, KDIM, KMXNOM , KMAX, NOPRNT 

COMMON  /CQNSTN/  PZERO, TZERO.AVOGAD.ALOSMT .GASCON, PLANK, BOLTZ, 

* 'l  CLIGHT,A0CON,ALZERO,AVMWT,AIRMWT,AMWT(20),VMtXST(20),VMIXN2 

C4  DOUBLE  PRECISION  HMOD 

COMMON  HMOD (3) , ZM(SO) ,PM(50) ,TM(S0) , RFNDXM(50) ,0£NM(20,50) 

COMMON  ZP(71 ) ,PP(71 ) , TP( 71 ) , RFNOXP(71 ) ,SP(71 ), 

1  PPSUM(71),TPSUM(71 !,RH0PSM(71 ) ,0ENP(20, 71 ) ,AMTP( 20,71 ) 

COMMON  Z(71),P(71),T'71) ,RFNDX(71 ) , OENSTV ( 20 ,71 ) 

C4  DOUBLE  PRECISION  HMOLS 

COMMON  /HMOLS/  HMOLS(20) 

COMMON  /PATHO/  PBAR(37)  ,TBAR(37)  ,'MOUNT(20.37)  ,WN2L(3?) , 

C  DVL(37) ,WTOTL(37) ,ALEL(37) ,A24L(37) , AVBL( 37) ,H20SL (37 ) , 

C  1CNIRL(37) ,ITYL(37) ,SECNTA(37) ,ALTB(37) ,ALTT(37) ,HT1 ,HT2 

COMMON  /MAIN/  NWDFIL.KPILE.KPANEL.LINFIL.PO. TEMPO, NLAYRS, 

C  H2OSLF,WTOT,ALBAR,ADBAR,AVBAR,AVFIX,LAYRFX,S£CNT0, 

C  SAMPLE, ALFALO.AVMASS 

COMMON  /BNDRY/  ZSND( 34 ) . PBNO( 34) tJND{34 ) ,AL0RNZ(34) ,AD0PP(34) . 

1  AVOIGT (34) 

COMMON  /ZOUVP/  ZOUT ( 37 ) , SOUT ( 37 ) , RHOSUM( 37) , AMTTOT (20) , AMTCUM(20) 
C  ISKIP(20) 

DIMENSION  VMIX( 20 ) 

DIMENSION  XZMI6312) ,XPBAR(1258) ,XZ0UT(!7t ) 

EQUIVALENCE  (ZMl 1 ) , XZM( 1 ) ) , ( PBAR( 1 ) , XPBAR( 1 ) ) , (ZOUT( 1 ) , XZOUT( 1 ) ) 
C4  DOUBLE  PRECISION  HCRIZ 
DIMENSION  HORIZI3) 

DATA  AVRATS/2.0/,TOIF1S/1S.O/,TDIF2S/30.0/ 

DATA  H0RIZ/8HH0RIZ0NT ,  BHAL  PATH  ,  8H  / 

DATA  HT1HRZ/4H  AT  /.HT2HRZ/4H  KN  /  HT1SLT/4H  TO  /.HT2SLT/4H  KM  / 
DATA  IERROR/O/ 

C**. IAMT  -  1 iCALCULATE  AMOUNTS,  I AMT  »  2 : DO  NOT  CALCULATE  AMOUNT a 
DATA  IAMT/ 1 / 

C.....03VMIX  IS  THE  MEAN  SURFACE  VOLUME  MIXING  RATIO  OF  OZONE, 

C..... PARTS  PER  MILLION,  FROM  U.  S.  STANDARD  ATMOSPHERE,  1976 
DATA  03VM1X/40.0E-3/ 

C.....AIRMS1  IS  ONE  AIRMASS  OR  THE  TOTAL  AMOUNT  FOR  A  VERTICAL  PATH 
C.....FROM  GROUND  TO  SPACE 
DATA  AIRMS1/J. 1S3E25/ 

PI  =  ASIN( 1 ,0)»2.0 
DEG  =■  180.0/PI 

C...GCAIR  IS  THE  GAS  CONSTANT  FOR  RHO  IN  MOL  CM(-3),  P  IN  MB,  AND 
C.....T  IN  K 

GCAIR  •  1.0E-3.GASC0N/AV0GAD 
C.....ADCON  IS  THE  CONSTANT  FOR  THE  DOPPLER  HALFWIDTH 
ADCON  =  SORT (2 . C*ALOG( 2 . 0 ) *GASCQN/CL IGHT..2 ) 

C.....2ERO  OUT  COMMON  BLOCKS 

NXZM  =  IM0DMX.(4+K0IM)+I0IH«(12+3»K01M) 

NXPBAR  »  IOUTMX. (14+KDIM) 

NXZOUT  =  IOUTMX»3+KOIM*3 
DO  90  M« 1 , NXZM 

90  XZM(N)  *  0.0 

DO  91  N=1. NXPBAR 

91  /.PBAR(N)  .  0.0 
DO  92  N.1, NXZOUT 

92  XZOUT(N)  «  0.0 
C*  * • *  * 

0.**** 

C-*.**READ  CONTROL  CARO  1 

READ! IRD.20)  MODEL, I  TYPE, IGNO, NOZERO, NOPRNT , KMAX, I  PUNCH, RE 
20  FORMAT (7 15 , 5X, FI 0. 3) 

WRITE! IPR, 21 ) 


0235S0 
023560 
023570 
C4023S80 
023590 
023600 
023610 
023620 
C4023630 
023640 
023650 
023660 
023670 
C23680 
023690 
023700 
023710 
023720 
,  023730 

023740 
023750 
023760 
023770 
C&023780 
023790 
023800 
023810 
023820 
023830 
023840 
023850 
022860 
023870 
023880 
023890 
023900 
023910 
023920 
023930 
023940 
023950 
023960 
023970 
023980 
023990 
024000 
024010 
024020 
024020 
024040 
024C50 
024060 
024070 
024080 
024093 
024100 
0241 10 
024120 
024130 
024140 
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105  CONTINUE 

IF(VMIX(3) .EO.O.O)  DENSTY(3,1)  »  O3VMIX»RH0BAR»1 .OE-6 
WRITE(IPR,29)RANG£,PH,TH,(HM0I.S<K)  ,Ka1  ,#MAX) 

29  FORMAT!///,1  PARAMETERS  FOR  A  HORIZONTAL  PATH,  MODEL  0:',// 

1  10X, 'RANGE  *  * , FI 0.3, '  KM‘,/,10X,'P  <  • .F10.3, 1  KM',/, 

2  itfX.'T  a  '  ,  F10.3, 1  K\//, 

3  10X, '0ENS1TY  1 ,T26, 'AIR' , ( T33 , 8 A 1 0 ) ) 

WRITE! I  PR, 30)  RHOBAR , (DENSTY (K , 1 ) , K»1 , KMAX) 

30  FORMAT (T63, 1 (MOL  CM-3) './/,( T20, 1 PE10 . 3, ( T30.BE10.3) ) ) 

GO  TO  160 

C«**.*mODEL  1  TO  7 
120  CONTINUE 

<>•«•. READ  IN  CONTROL  CARO  2 
READ, IRQ, 31 )  ZH, RANGE 

31  FORMAT ( F 1 0 . 3 , F 1 0 . 3 ) 

WRITE! IPR.32)  ZH, RANGE 

32  FORMAT!///, '  CONTROL  CARD  2: • , // , 1 0X, ‘ Z  =  '.F10.3,'  KM',/, 

1  10X. 'RANGE  *  1 .F10.3, 1  KM1 ) 

C««..*SET  UP  THE  ATMOSPHERIC  PROFILE 
CALL  MLATM(M) 

interpolate  mmospheric  profile  densities  to  zh 

DO  130  IMa  2 , I MOD 
IF(ZH.LT.ZM(IM))  GO  TO  140 
130  CONTINUE 
IM  a  IMOD 
140  CONTINUE 

A  *  (ZH-ZM(IM-1))/(ZM(IM)-ZM(IM-1)) 

CALL  EXPINT! PH, PM (IM-1 ) . PM ( I M ) , A ) 

TH  a  TM( IM-1 )+(TM( IM)-TM( IM-1 ) )»A 
RHOBAR  «  ALOSMT*PH*TZERO/(PZERO»TH) 

DO  150  Kal , KMAX 

CALL  EXPINT (DENSTY(K,1 ) ,OENM(K, IM-1 ) ,OENW(K, IM) ,A) 

ISO  CONTINUE 

WRITE! 1  PR. 34)  HMOD.ZH.PH.TH, (HMOLS(K) ,Ka1 ,KMAX) 

34  FORMAT!///'  PRESSURE,  TEMPERATURE.  AND  DENSITIES  INTERPOLATED', 

1  '  FROM  THE  FOLLOWING  ATMOSPHERIC  MODEL:  ',//,10X,  3A8,// 

2  lOX.'Z  a  ',ri0.3,'  KM'./.IOX,'?  =  ',F10.3,'  MB'./, 

3  1  OX , ' T  a  ' .F10.3, '  X' ,//, 

4  10X, 'DENSITIES  : ' , T26 , ' AI R ' , ( T30,8A10) ) 

WRITE! I  PR, 3S)  RHOBAR ,(0ENSTY(K,1),K*1 , KMAX ) 

35  FORMAT ( T63, ' (MOL  CM-3) ' ,// ,T20 , t PE1C. 3 , ( T30 ,8El 0.3) ) 

160  CONTINUE 

C*****COMPUTE  AMOUNTS  FOR  A  HORIZONTAL  PATH 
30  170  Kal, KMAX 

AMOUNT (K,  1  )  =■  DENSTY (  K  ,  1  )  GRANGE*  1 .  0E+5 
170  CONTINUE 

AMTAIP  »  RHOBAR. RANGE* I .OG-S 

WRITE!  IPR.36)  HMOU, ZH. PH, TH. RANGE. (HMOLS(K) ,X«1 .KMAX) 

36  FORMAT  1 ' OS  I NGLE  LAYER  INPUT  TO  FaSCODI ',//, 10X, 'MODEL  «  ‘,3A8,/, 

1  lOX.'Z  a  1  ,  FI  0 . 3,  '  KM '  ,  /  ,  1 0X ,  '  P  a  '  ,F10.3,  '  MB',/, 

2  lOX.'T  *  '  ,  FI  0 . 3 ,  '  ,:./,  10X,  'RANGE  a  '.F10.3,'  KM',//, 

4  10X, 'AMOUNTS: ' ,T26,  AIR ' , ( T30, 8A 1 0) ) 

WRI TE( IPR, 37)  AMTAIR,  < AMOUNT <h , 1 ). Ka 1 .KMAX) 

37  F0RMAT(T63, • (MOL  CM-2) ' .// ,T20, 1PE10.2, ( T30.8E10.2) ) 
icntrl ( i )»o 

lmax  a  1 
NLAYRS  »  1 

WN2L( I )  a  AMTAIR*VMIXN2*1 .0E-6 
PBAR( 1 ) aPH 
T8AR ( 1 )«TH 


024750 

024760 

024770 

024780 

024790 

024800 

024810 

024820 

1024830 

024840 

024850 

024860 

024870 

024880 

024890 

024900 

024910 

024920 

024930 

024940 

024950 

024960 

024970 

024980 

024990 

025000 

025010 

025020 

025030 

025040 

025050 

025060 

025070 

025080 

025050 

025100 

025110 

025120 

025130 

025140 

1025150 

C2516C 

025170 

025180 

025190 

025200 

025210 

025220 

025230 

025240 

025250 

025260 

025270 

1025280 

025290 

025500 

1025303 

1025306 

025310 

025320 
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A.LT  B  { 1  )=RANG£ 

Z0UT(1)«ZH 

SECNTA(1)=I. 

ALTT( 1 )«ZH 
HT1  =  HT1KRZ 
HT2  *  HT2HRZ 

I F(  I  PUNCH. £0.1)  WRIT£(IPU,38)  LMAX.HMOD 

38  F0RMAT(I5,SX,3A0) 

IF( IPUNCH. £Q.  1 )  WR!T£(IPU,39)  PH, TH , ICNTRL! 1 ), RANGE, ZH, 

I  (AMOUNT (K.1 )  ,K«1 ,7) ,WN2l(1 ) , (AMOUNT ( K , 1 ) .K*8,KMAX) 

39  F0RMAT(2F10.4,I0X,I5,2SX,F7.2,'  Af',f7.2,'  KM’,/, 

1  ( 1P8E10.2) } 

RETURN 

C***** 

c**»*» 

C*****SLANT  PATH  SELECTED 
C**»** 

200  CONTINUE 

C**»**1TYP£  *  2  OR  3:  SLANT  PATH  THROUGH  THE  ATMOSPHERE 
WRIT£(IPR,40)  ITYPE 

40  FORMAT ( /// , 1  SLANT  PATH  SELECTED,  ITYPE  «  *,15) 

(>«.•«  READ  IN  CONTROL  CARD  2  CONTAINING  SLANT  PATH  PARAMETERS 
READ( IR0.46)  HI , H2 , ANGLE , RANGE , BETA , LEN 
46  FORMAT(5FI0.4,ISJ 

WRITE! IPR, 48)  Ht . H2, ANGLE, RANGE, BETA, LEN 
48  FORMAT(///'  CONTROL  CARD  2:  SLANT  PATH  PARAMETERS',//, 

1  lOX.'Ht  s  ■  ,  F  1 0 . 4 , 1  KM' ,/,  IOX,  *H2  «  \F!0.4,’  KM',/, 

2  IOX, 'ANGLE  »  ' , F 1 0 . 4 , '  DEG' ,/, IOX ,' RANGE  *  ’.F10.4,'  KM',/ 

3  IOX, 'BETA  =  ' , F 10. 4 , '  DEG' ,/ , IOX, ' LEN  *  ',110) 

C*****R£AO  IN  CONTROL  CARO  3  GIVING  THE  FREQUENCY  RANGE  IN  WAVENUMBERS 

READ(IRD.SO)  VI, V2 

50  FORMAT ( 2F1 0 . 3 ) 

VBAR  =  0.5* ( VI+V2) 

WRITE! IPR.S1 )  VI .V2.VBAR 

51  FORMAT!///, •  CONTROL  CARO  3‘ , //, IOX, *VI  •  ',F10.3,'  CM-1',/, 

I  I0X,‘V2  «  ' , Ft 0 • 3 , '  CM-1 ',/, IOX, 'V8AR  =  '.F10.3,'  CM-1') 

c*... .GENERATE  OR  READ  IN  FASC001  BOUNDARv  LAYERS 
I F 1 IBND.NE.O)  GO  TO  210 
C**»**SELECT  AUTGMATIC  LAYERING 

READ( IR0.S6)  AVTRAT.T0IFF1 .TDIFF2 

56  FORMAT ( 3F10 . 3) 

IF(AVTRAT.EQ.O.O)  AVTRAT  *  AVRATS 
IFiTOIFFI.EO.O.O)  tdiffi  *  TDIF1S 
IF(T0I?F2  EO.O.O)  TOI FF2  =  T0IF2S 
WRITE! I  PR , 57 )  AVTRAT , TOI FFi , T0IFF2 

57  FORMAT ( /// ,  '  AUTOLAYERING  SELECTEO  '  ,// , 

1  IOX, 'AVTRAT.  =•  ■  .F8-2,/,  IOX,  'TDIFFI  *  ',F8.2,/, 

2  IOX, ' TOI FF2  =  ' , FS . 2) 

IF(AVTRAT.LE.1.0  .OR.  TOIFFl . LE.O.O  .or.  TDIFF2. LE.O.O)  GO  TO  906 
GO  TO  220 
210  CONTINUE 

c*...*read  in  fascodi  boundary  layers 

READ! IR0.58)  (ZKNO{ iE).I0"1,IBN0> 

58  FORMAT (8Ft 0 . 3) 

WRITE!  I  PR.  59)  (IB.ZBNOCB)  ,18  =  1  , I3NU, 

59  FORMAT!///,'  USER  DEFINED  .BOUNDARIES  FOR  FASCODI  LAYERS',/, 

1  1  OX , ' I '  , 4X , ' Z  (KM) './/,( IOX, 12, FIO. 4) ) 

IF(ZBND(1).LT.O)  CO  TO  902 
DO  215  18=2, ISNO 


025330 

025340 

025350 

025360 

025370 

025380 

025390 

025400 

02S4I0 

1025420 

025430 

025440 

025450 

025460 

025470 

025480 

025490 

025500 

025510 

025520 

025530 

025540 

025550 

025560 

02557A 

025580 

025590 

025600 

025610 

025620 

025630 

025640 

025650 

025660 

025670 

025680 

025690 

025700 

025710 

025720 

025730 

025740 

C25750 

025760 

025770 

025780 

025790 

025800 

025810 

025820 

025830 

025840 

025850 

025860 

025870 

025880 

025890 

02S900 

025910 

025920 
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I F ( 2 6ND ( IB).LE.ZBND(IB-I))  GO  10  902  025930 

215  CONTINUE  025940 

220  CONTINUE  025950 

C.*.»*SET  UP  ATMOSPHERIC  PROFILE  025960 

CALL  MLATM(M)  025970 

C*****COMPUTE  THE  REFRACTIVE  INDEX  PROFILE  025980 

C**»»»RFNDXM  IS  1.0-INDEX  025990 

C**** ‘EQUATION  FOR  RFNDXM  IS  FROM  LOWTRAN  (REF  3)  026000 

DO  225  IM=1,IM00  026010 

PPH20  «  OENM(1,IM)*PZERO*TM{IM)/(TZERO.ALOSMT)  026020 

RFNDXM(IM)  =  ( (77.46+0 . 459E-8*VBAR.*2 )*PM(IM)/TM(IM)  026030 

1  - ( PPH20/1 01 3. 0)* (43 .49-0 .347E-8*VBAR**2))*1 .0E-6  626040 

225  CONTINUE  026050 

C»« ...PRINT  ATMOSPHERIC  PROFILE  026060 

WRITE(IPR,52)  M.HMOD  026070 

52  FORMAT ('  1  ATMOSPHERIC  PROFILE  SELECTED  IS:  M  •  ' ,I3,5X,  3A8)  02t>080 

IF(NOPRNT.NE.O)  GO  TO  230  026090 

WRITE( IPR, 53 )  (HMOLS(K) ,  K*1 , KMAX)  026100 

53  FORMAT (/ , T5 . *  I  * , Tt 2 , 1 Z 1 , T22 , ' P ' , T32 , ' T' , T38 , ' REFRACT ' ,  026110 

1  T70, 'DENSITY  (MOLS  CM-3) ' ,/,  026120 

2  T38, 1  INDEX. 1 ' , T50,/ ,  026130 

3  Til , '(KM)' ,T21 , '(MB) ' ,T31 ,' (K) ' ,T38, <»1 .0E6* ,  026140 

4  T50,'AIR',(T55,eA9))  026150 

WRITE(IPR,55)  026160 

55  FORMAT (/)  .26170 

DO  228  IM= 1 , IMOD  026180 

DENAIR  .  ALOSMT *(PM(IM)/PZERO)*(TZERO/TM(IM))  026190 

WRI T£ ( I  PR , 54 )  IM,ZM(IM),PM(IM),TM(IM),RFNDXM(IM),DENAIR,  026200 

1  ( OENM( K , IM) , K* 1 , KMAX )  026210 

54  FORMAT(I4,3F10.3,6PF10.3,1P9E9.2,/,(53X,1P8E9.2))  026220 

228  CONTINUE  026230 

230  CONTINUE  026240 

c.... .REDUCE  SLANT  PATH  PARAMETERS  TO  STANDARD  FORM  026250 

CALL  GE0INP(H1  , H2, ANGLE. RANGE, BETA, I  TYPE, LEN,HMIN, PHI, I  ERROR)  026260 

1F( IERROR.NE.O)  CO  TO  904  026270 

C.....SET  UP  FASC0D1  LAYER  BOUNDARIES  026280 

1 F( I BND.NE . 0)  GO  TO  235  026290 

C»»*».AUrOMATIC  LAYERING  SELECTED  026300 

HMAX  =  AMAX1 (HI ,H2)  026310 

CALL  AUTLAY  (Hf, 'IN,  HMAX,  VBAR,  AVTRAT,  TOIFFl  .TDIFF2.  IBND,  I  ERROR)  026320 

GO  TO  238  026330 

23b  CONTINUE  026340 

C.....USER  SUPPLI EO  LAYERING  026350 

WRITE! IPR, 80)  026360 

80  FORMAT (///,'  HALFwICTH  INFORMATION  ON  (HE  USER  SUPPLIED  ',  026370 

1  1 FASC0D1  BOUNDARIES',/,'  THE  FOLLOWING  VALUES  ARE  ASSUMED:')  C26380 

DO  237  18=1  , IBND  026390 

CALL  HALFWO(ZBNO( 1 8) , VBAR , PBND( I B) , TBNO( IB) , ALORNZ ( I B) ,ADOPP( IB) ,  026400 

1  AVOIGT (IB))  026410 

237  CONTINUE  C26420 

238  CONTINUE  026430 

WRI TE ( I  PR , 82 )  ALZERO, AVMWT.VBAR  026440 

82  FORMAT ( 1 0X,  'ALZERO  =  ',F9.3,'  CM-I  =.  AVERAGE  LORENTZ  WIDT.1  ',  C26450 

1  'AT  SIP ' ,/,  026460 

2  1 0X , ' AVMWT  =  ' , F8 . 2 , '  »  AVERAGE  MOLECULAR  WE  I GrtT ',/ ,  026470 

3  1 0X , ' V8AR  «  ' , F8 .2 , 1  CM-1  =  AVERAGE  WAVENUMBER ',/// ,  026480 

4  T5, 'I' ,T12, ' Z ' ,T22, 'P' ,T32, 'T' ,T3S, 1 LORENTZ' ,  026490 

5  T49, 'DOPPLER' ,T61 , ' ZETA' , T70 , ' VOIGT ' , T80 , 1  VOIGT ' , T90 , • TEMP 1 ,/ ,  026500 

6  T1 1 , ' (KM) 1 ,T21 , ' (MB) ' ,T31 , ' (K) ' ,740, ' (CM-1 ) ' ,  026510 

7  T50, '(CM-1) ' ,T70, ' (CM-1) • ,T80, 'RATIO' ,T90, 'DIFF  (K)',/)  026520 
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00  239  IB«1 ,  IBND 

ZETA  *  ALORNZ(IB)/(ALORNZ(IB)+AOOPP(IB)) 

RATIO  «  0.0 
DTEMP  »  0.0 

I F ( IB.NE.IBND)  RATIO  *  AVOIGT ( IB)/AVOIGT( IB+1 ) 

I F ( IB.NE. IBND)  DTEMP  *  ABS(TBND( IB)-TBND( IB+1 ) ) 

WRITE! I  PR, 84)  IB.ZBND! IB) ,PBND( IB) ,TBND< IB) .ALORNZ(IB) ,ADOPP( IS) , 
1  ZETA, AVOIGT! IB) .RATIO, DTEMP 
84  FORMAT(I5,3F10.3,2F10.5,F10.3,F10.5,F10.2,F10. 1 ) 

339  CONTINUE 

IF(ItRROR.NE.O)  STOP  06 

C****+MERG£  FASC0D1  LAYER  BOUNDARIES  WITH  ATM03PHEREIC  PROFILE  LEVELS 
I  *  0 
IM  =  1 
IB  =  1 

240  CONTINUE 
I  »  1  +  1 

IF( I.GT.IDIM)  GO  TO  908 
IF( IB. GT. IBND)  GO  TO  250 
IF( ZBND( IB).LT.ZM(IM))  GO  TO  260 
<;•»♦». INSERT  A  LEVEL  FROM  THE  ATMOSPHERIC  PROFILE 
IF(Z8ND(IB).E0.ZM(IM))  IB  *  18+1 
250  CONTINUE 

2(1)  «  ZM(IM) 

P( I )  =  PM(IM) 

T( I )  =  TM(1M) 

RFNDX(I)  »  RFNDXM(IM) 

DO  255  K=1 , KMAX 
DENSTY(K.I)  *  OENM(K.IM) 

255  CONTINUE 

IF(IM.GE.IMOD)  GO  TO  270 
IM  *  IM+1 
GO  TO  240 
260  CONTINUE 

INSERT  A  LEVEL  FROM  THE  FASC001  BOUNDARIES  AND  INTERPOLATE 
C+++++PRESSURE,  TEMPERATURE,  AND  DENSITIES 
Z(I)  *  ZBNO(IB) 

IF( IM.E0.1 )  IM  *  2 

A  =  (Z(l)-ZM(IM-1))/(ZM(IM,-ZM(!M-1)) 

CALL  EXPINT ( P( I ) , PM( IM-1 ) ,PM( IM) ,A) 

T ( I )  =  TM( IM-1 )+(TM(lM)-TM> IM-1 ))*A 

CALL  EXPINT  I RFNDX( I J , RFNDXMI IM-1 ) ,RFNDXM( IM) ,A) 

O'J  265  K=I.KMAX 

CALL  EXPINT (DtNSTY(K , I ) , DENM(K, IM- I ) ,0£NM(K , IM) , A) 

265  CONTINUE 
IB  =  IB+1 
GO  TO  240 
270  CONTINUE 
IMAX  =  I 

C«»». .CALCULATE  THE  REFRACTED  PATH  THROUGH  THE  ATMOSPHERE 

CALL  RFPATH(H1  .  H2  ,  ANGLE  ,  °H  I  ,  LF.N.HMIM,  I  AMT  :  RANGE  .  BE  TA  ,  BENDNG 1 
C+..+. PRINT  AMOUNTS  BY  layer  ano  ACCUMULATE  TOTALS 

I F( NOPRNT . NE . 1 )  WRITE! 1PR. 50)  (HMOLS ( K I . K* 1 , KMAX ) 

60  FORMAT! 1 1 1NTEGRATED  ABSORBER  AMOUNTS  BY  LAYER',///. 

1  T5, 1  I  LAYER  BOUNDARIES' , T55, 1  INTEGRATED  AMOUNTS  (MOL  CM-2)‘. 

2  /.Til,’ FROM' ,T22, 'TO1 ,T30. 'AIR' ,T36.8(1X,AB,1X),/, 

4  T 1 1 , ' (KM) 1 , T?1 , • ( AM) ' , ( 137 , 8A 1 0 ) ) 

12  +  IPATH-1 
AIRTOT  *  0.0 
00  280  K.1.KMAX 


026530 

026540 

026550 

026560 

026570 

026580 

026590 

026600 

026610 

026620 

026630 

026640 

026650 

026660 

026670 

026680 

026690 

026700 

026710 

026720 

026730 

026740 

026750 

026760 

026770 

026780 

026790 

026800 

026810 

026820 

026830 

026840 

026850 

026860 

026870 

026680 

026890 

026900 

026910 

026920 

026930 

026940 

026950 

026960 

026970 

026980 

026990 

027000 

027010 

027020 

027030 

027040 

027050 

027060 

027070 

027080 

027090 

027100 

027110 

027120 


280  AMTTOT(K)  a  0.0 

HMIO  *  AMIN1 (HI ,H2) 

00  290  I»1 , 12 
FAC  *  1.0 

1F( LEN. EQ. 1  .AND.  ZP< 1+1 ). L£ .HMIO)  FAC  =  2.0 
AMTAIR  a  RHOPSM( I )*1 .0E5 
AJRTOT  =  A1RT0T+FAC*AMTAIR 
00  285  Ka 1 , KM AX 

AMTIOT (K)  a  AMTTOT(K)+FAC»AMTP(K, I) 

285  CONTINUE 

IF(NOPRNT.NE. 1 )  WRITE! I  PR, 61 )  I ,2P( I) ,ZP( 1+1 ), AMTAIR ,( AMTP( K , I ) . 

1  Kal.KMAX) 

61  FORMAT ( IS.2F10.3, 1P9E10.3./. (35X, 1P8E10.  3) ) 

290  CONTINUE 

I F ( NOPRNT . NE . 1 )  WRITE! I  PR. 62)  HI , H2.AIRT0T, (AMT TOT (K ) .Kal , KMAX ) 

62  FORMAT! 'OTOTAL' , F9 . 3 . F 1 0 . 3 , 1 P9E1 0 . 3 . / . ( 35X , 1 P8E1 0 . 3) ) 

300  CONTINUE 

C**a*»PRINT  SUMMARY  OF  PATH 
AIRMAS  a  AIR70T/AIRMS1 

WRITE! IPR. 63)  HMOO.HI , H2 .ANGLE , RANGE . BETA . PHI , HMIN, BENDNG, LEN, 

1  AIRMAS 

63  FORMAT ( 1 1  SUMMARY  OF  THE  GEOMETRY  CALCULATION',//. 

1  10X, ‘MODEL  =  '  ,  4X , 3A8 , / 

1  lOX.'HI  a  ' , F 1 0 .3 , '  KM1 ,/, 10X, 'H2  =  ‘.FIO.S,1  KM',/, 

2  10X, 'ANGLE  a  ' , F 1 0 . 3 , '  OEG' ,/, 10X ,' RANGE  a  '.F10.3,'  KM',/. 

3  lOX.'BETA  =  ' , FI 0 . 3 , '  DEG' , / , 10X, ' PHI  =  '.F10.3,'  OEG',/, 

4  1 0X , 'HMIN  a  ' , F 1 0. 3, '  KM' ,/, 10X, ' BENDING  =  ‘,F10.3,‘  DEG',/ 

5  1 0X ,  'LEN  a  •  ,110,/,  10X,  'AIRMAS  a  \G10.3, 

6  'RELATIVE  TO  A  VERTICAL  PATH  ,  GROUND  TO  SPACE') 

C*****RETRI£VE  THE  LAYERS  FROM  HMIN  TO  MAX(H! ,H2)'  DEFINED  BY  THE 

BOUNDARIES  HMIN , HI ,H2  AND  ZBND 
I  =  1 

12  =  IPATH-1 
ZOUT(l)  =  ZP(I) 

C*..a»FIN0  SMALLEST  ZBND.GT.HMIN 
00  305  IB= I , IBNO 
I F I ZBND( IB) . GT . HMIN)  GO  TO  310 
305  CONTINUE 
IB  a  IBNO 
310  CONTINUE 

00  360  I P=1 ,12 

PBAR(I)  a  PBAR( I )+PPSUM( I?) 

TBAR(I)  =  TBAP! I )+TPSUM( IP) 

RHOSUM(I)  =  RHOSUM! I )+RHOPSM( IP) 

SOUTH)  =  SUUT  (  I  )  +  SP(  IP) 

00  320  Kal.KMAX 

AMOUNT (K , I )  a  AVOUNT(K. I )+AMTP(K, IP) 

320  CONTINUE 

I F ! ZOUT ( I ) . EO. HMi C )  IHMIO  =  I 
IF( IP.E0.I2)  GO  TO  360 

C*****TEST  FOR  JUMP  UP  TO  THE  NEXT  LAYER  OF  ZOUT 
IFiZP(  I P+-1  )  .E0.Z3ND!  IB) )  GO  TO  330 
!F(  LEN .  EO.  1  .AND.  ZP(  IP+1 )  .EO.HMIO),  GO  TO  340 
GO  TO  360 

C*  ♦  *  * ♦ JUMP  TO  TNE  NEXT  LAYER  CF  ZBNO 
330  IB  a  1 3a I 

IF( IB. GT. IBNO)  IB  =  ISNC 
(;•*»». JUMP  TO  THE  NEXT  LAYER  IN  ZOUT 
340  I  =  1+1 

ZOUT ( I )  a  ZP(IP+1) 


027130 

027140 

027150 

027160 

027170 

027180 

027190 

027200 

027210 

027220 

027230 

027240 

C27250 

027260 

027270 

027280 

027290 

027300 

027310 

027320 

027330 

027340 

027350 

027360 

027370 

027380 

027390 

027400 

027410 

027420 

027430 

027440 

027450 

027460 

027470 

027480 

027430 

027500 

027510 

027520 

027520 

027540 

027550 

027560 

027570 

027580 

027590 

C27600 

027610 

027620 

027630 

027640 

027650 

027660 

027670 

027680 

027690 

027700 

027710 

027720 


360  CONTINUE  027730 

IOUTMX  =  1+1  027740 

ZOUT ( IOUTMX )  •  ZP(IPATH)  027750 

I F ( ZOUT ( !OUTMX) . EQ.HMIO)  IHMIO=  IOUTMX  027760 

CALCULATE  THE  DENSITv  w I EGHTEC  PRESSURE  ANO  TEMPERATURE  AND  027170 

C+...+ZERO  0UT  LAYER  AMOUNTS  AFTER  99.9  PERCENT  OF  THE  TOTAL  027780 

00  405  K=1,KMAX  027790 

AMTCUM(K)  =  0.0  027800 

ISKIP(K)  =  0  027810 

I F  { AMT  TOT  (  K  ) .  EQ .  0 . 0 )  IS7,IP(K)  »  1  027820 

40S  CONTINUE  027830 

L2  =  IOUTMX-1  027840 

LMAX  =  L2  027050 

DO  450  L=1 , L2  027860 

P6AR ( L )  *  P8AR(L)/RH0SUM(L)  027870 

TSAR ( L )  =  TBAR(L)/RHOSUM(L;  C27880 

C+  +  *  * ‘ADJUST  RHOSUM  FOR  THE  PATH  LENGTH  In  CM  NOT  KM  C27890 

PHOSUM(L)  =  RHOSUM( L ) *  1 . OEtS  027900 

C«»»**CALCULATE  THE  AMOUNT  OF  N2  TO  DETERMINE  THE  PRESSURE  BROADENING  C27910 
WN2UL)  =  RH0SU.M(L)*VMIXN2*1.0E-6  027920 

C*****CA'.CULATE  'EFFECTIVE  SECANT'  SECNT A  027930 

SECNTA(L)  ;  S0UT(L)/(Z0UT(L+1)-Z0UT(L))  027940 

ALTB(L)  =  ZOUT(L)  027950 

ALTT(L)  =  ZOUT ( L+ 1 )  027960 

C.»*.^SET  ICNTRl  027970 

IFvLEN.EO.1)  GO  TO  410  027980 

IF(H1.LT.H2)  ICNTR^(L)  =  3  027990 

IF(H1.GT.H2)  ICNTRL(L)  =  1  028000 

GO  TO  415  028010 

410  CONTINUE  028020 

I F ( ZOUT ( L ) . LT . HM1 0 }  ICNTRL(L)  *  2  028030 

I F ( ZOUT ( L ) .GE.HMID  .AND.  H1.GT.H2)  ICNTRL(L)  «  1  028040 

IF(ZOUT(L).G£. HMI 0  .ANO,  H1.LT.H2)  ICNTRL(L)  *  3  028050 

415  CONTINUE  028060 

C*«**«TEST  FOR  ZtROING  OF  AMOUNTS  028070 

ISKPT  =  0  028080 

FAC  *  1  028090 

IF( ICNTRLi L) -E0-2)  CAC  =  2  C28100 

DO  440  Kit , KM AX  028110 

IF( ISKIP(K) .EQ. 1 )  GO  TO  420  028120 

IF (NOZERO. £0. I  -OR.  K.EO.T  .CR.  028130 

1  (IEMIT.EO.I  -AND.  !CNTRl;l).NE.3))  GO  TO  430  028140 

if(((amttot<ki-amtciim!K);/amttot(K)).gt. o.ooi)  go  to  430  02bisp 

420  CONTINUE  028 160 

C++* ♦ ‘ZERO  OUT  THIS  AMOUNT  026170 

ISKIP(K)  I  1  028180 

AMOUNT ( K , L )  =  0.0  028150 

ISKPT  i  ISKPT+1  028200 

C+...+IF  ALL  BUT  02  ARE  ZEROED,  ELIMINATE  ALL  HIGHER  LAYERS  028210 

IF(ISKPT.GE.(KMAX-1»)  GO  TO  460  028220 

430  CONTINUE  028230 

AMTCUM(')  »  AMTCUM(K)+FAC*AMOUNT(K,L)  028240 

440  CONTINUE  028250 

LMAX  i  L  028260 

450  CONTINUE  028270 

460  CONTINUE  028280 

0»»4. OUTPUT  THE  PROFILE  028290 

WRITE( IPR, 64)  (HMOLS(K) ,K=1 ,KMAX)  02830C 

64  FORMAT! 'OFINAL  SET  OF  LAYERS  FOR  INPUT  TO  FA5C0D1 * ,/ ,  028310 

I  '  A  LAYER  AMOUNT  MAY  3E  SET  TO  ZERO  IF  THE  CUMULATIVE  028320 


2  ‘AMOUNT  FOR  THAT  LAVER  AND  ABOVE  IS  LESS  THAN  O.t  PERCENT' ,/, 

3  ‘  OF  THE  TOTAL  AMOUNT.  THIS  IS  OON£,ONLV  FOR  THE 

4  ‘FOLLOWING  CASES' ,/,SX, ■ 1 .  IEMIT  =  0  ( TRANSMI TTANCE) ‘ , / .5X, 

5  '2.  IEMIT  *  1  (RADIANCE)  AND  ICNFRL  =  3  (PATH  LOOKING  UP)'./, 

6  '  02  IS  NOT  INCLUDED',/,'  IF  THE  AMOUNTS  FOR  ALL  THE', 

7  '  MOLECULES  BUT  02  ARE  ZEROED,  THF  REMAINING  LAYERS  ARE  ', 

8  'ELIMINATED' .////. T5, 'L  LAVER  BOUNDARIES ', T26, ' ICNTRL ', T34 , 

9  'PBAR' ,T43, 'TSAR' , TBS, 'INTEGRATED  AMOUNTS  (MOLS  CM-2) ‘ , / , 

*  Til , 'FROM' ,T22, 'TO' ,/, 

1  Tt 1 , '(KM)' ,T21 , ' (KM) ' ,T34, '(MB)' ,T44, • (K) ' ,T52, 'AIR' , 

2  (TS7.8A9)) 

IF(IPUNCH.EQ.t)  WRITE( IPU.65)  LMAX ,HMOO, HI ,H2, ANGLE, LEN 

65  FORMAT ( 15, 5X , 3A8 , '  H1*',F8.2,'  H2=',F8.2,'  ANGLE*' , F8.3, 

1  '  LEN=',I2) 

DO  470  L=1 , LMAX 

WRITE( IPR.66)  L , ZOUT ( L) ,ZOUT(LH ),1CNTRL(L),PBAR(L) ,TBAR( L ) , 

1  RHOSUM ( L ) , ( AMOUNT ( K , L ) , K= 1 , KMAX ) 

66  FORMAT(/,I4,2FI0.3,I4,2F9,2. I P9E9 . 2,/ , (55X, 1 P8E9. 2) ) 

I F ( I  PUNCH . EQ . 1 )  WRITE! IPU, 68 )  PBAR( L) , TBAR( L) , ICNTRL( L) , 

1  ZOUT ( L ) , ZOUT ( L+1 ) 

68  FORMAT (1PG10.3,OPF1O.2,1OX,I5,2SX,F7.2,'  T0‘,F7.2,'  KM') 

I F( I  PUNCH , NE . 1 )  GO  TO  470 

WRITE( IPU.70)  (AM0UNT(K,L),K*1,7) , WN2L( L) 

70  FORMAT ( 1P8E10.2) 

I F ( KMAX . GT . 7 )  WRITE( IPU, 70)  ( AMOUNT ( K , L) ,K*8 ,KMAX) 

470  CONTINUE 

NLAYRS  =  LMAX 
FIT  1  *  HT1SLY 
HT2  *  HT2SLT 
RETURN 

C* •  *  *  * 

c**+** 

C*****ERROR  MESSAGES 
C*  **  *  * 

900  WR!TE( I  PR, 901 )  MODEL, ITVPE. KMAX 

901  FORMAT(///,'  ERROR  IN  INPUT,  CONTROL  CARO  1i  ONE  OF  THE  ’, 

1  'PARAMETERS  MODEL,  I  TYPE,  KMAX  IS  OUT  OT  RANGE', //. 

2  10X. 'MODEL  =  ' ,15,/. 10X, 'ITVPE  =  ',15,/. 

3  lOX.'KMAX  *  ',15) 

STOP  10 

90->  WR I  TE  ( I  PR ,  903) 

903  FORMAT (/// , '  ERROR:  BOUNDARY  ALTITUDES  FOR  FASC001  LAVERS  '. 

I  'ARE  NEGATIVE  OR  NOT  IN  ASCENDING  ORDER') 

STOP  12 

904  WR  I  TF.  (  I  PR ,  905 ) 

905  FORMAT ( 'OERRCR  FLAG  RETURNED  FROM  GEOINP:  AN  ERROR  OCCURED 

1  'IN  PROCESSING  THE  SLANT  PATH  PARAMETERS',/, 

2  'OPROGRAM  STOP' ) 

STOP  14 

906  WR ITE( I  PR, 907) 

907  FORMAT*///. '  ERROR:  EITHER  AVTRAT. LE. 1 .0  OR  TDIFF . LE . 0 ' , / , 

1  'OPROGRAM  STOP') 

STOP  05 

903  WRI TE( IPR.909)  IDIM 

909  FORMAT*//, '  ERROR:  THE  MERGING  OF  THE  ATMOSFHERIC  PROFILE  ’, 

1  'AND  THE  FASCODE  BOUNDARIES  ',/,  T10,  ’  EXCEEDS  THE  AVAILABLE',, 

2  '  DIMENSION  IDIM  *  ' , 13) 

STOP  16 

END 
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BLOCK  D4TA  ATMC3N  023900 

028910 

C  THIS  SUBROUTINE  INITIALIZES  THE  CONSTANTS  USEO  IN  THE  026920 

C  PROGRAM.  CONSTANTS  RELATING  TO  THE  ATMOSPHERIC  PROFILES  ARE  STORED  028930 

C  IN  8L0CX  DATA  MLATMB.  026940 

C++. •«..••.•••+• ........  028950 

COMMON  /PARMTR/  PI , DEG, GCA1R , RE .DELTAS , ZMIN, ZMAX , 1MAX, IMOD, IBMAX ,  023960 

1  I0UTMX.IPATH,1M00MX,IDIM,KDIM,KMXN0M,KMAX,N0PRNT  028970 

COMMON  /CONSTN/  PZERO , TZERO , AVOGAO . ALOSMT . GASCON , PLANK , BOLT Z ,  028980 

1  CLIGHT,ADCON.ALZERO,AVMWT.AIRMWT,AMWT(2O),VMIXST(20),VMIXN2  023990 

C4  DOUBLE  PRECISION  MMOLS  CB029000 

COMMON  /HMOLS/  HM0LS(20)  029010 

C+..++IMOOMX  IS  THE  MAX  NUMBER  OF  LEVELS  IN  THE  ATMOSPHERIC  PROFILF.  029020 

C»»»+«  STORED  IN  ZM  929030 

C*«»*«IOUTMX  IS  THE  MAXIMUN  NUMBER  OF  OUTPUT  LAYERS  029040 

C*+. ** IOIM  IS  THE  MAXIMUM  NUMBER  OF  LEVELS  IN  THE  PROFILE  Z  OBTAINED  029050 

C**»»*  BY  MERGING  ZM  AND  ZBNO  029060 

C+....KOIM  ID  THE  MAXIMUM  NUMBER  OF  MOLECULES,  KMXNOM  IS  THE  DEFAULT  029070 

C+  +  *  *  * IBMAX  IS  THE  MAXIMUM  NUMBER  OF  INPUT  FASCODE  LAYERS  029080 

DATA  IM09MX/50/, IOUTMX/37/ , I OIM/71 / , KDIM/20/ , KMXNOM/7/  029090 

DATA  I BMAX/34/  029100 

(^♦.•DELTAS  IS  THE  NOMINAL  SLANT  PATH  INCREMENT  In  KM.  029110 

DATA  DELTAS/5.0/  029120 

DATA  PZER0/1013. 25/, TZERO/273. 15/  029130 

DATA  AVOGAO/6. 02 2045E +23/ , ALOSMT /2 .68675E+t9/.  029140 

1  GASCON/8. 31 44 1E+7/. PLANK/6. 626 176E-27/ . BOLTZ/1 .380662E- 16/,  029150 

2  CLIGHT/2. 99792456610/  029160 

C+.+++ALZERO  IS  THE  MEAN  LORENTZ  HALFWIDTH  AT  PZERO  AND  296.0  K.  029170 

C++ ♦ ++AVMWT  IS  THE  MEAN  MOLECULAR  WEIGHT  USED  TO  AUTOMATICALLY  029180 

C++. ..GENERATE  THE  FASC0D1  80UN0ARIES  IN  AUTLAY  029190 

DATA  ALZERO/O. 1/ , AVMWT/36 . 0/  029200 

C+  +  . ..ORDER  OF  MOLECULES  H20(1),  C02(2) ,  03(3),  N20(4),  C0(5),  CH4(6),  029210 

C+...+  02(7),  N0(8),  S02(9),  N02(10).  NH3(11),  HN03(12),  0H(13>.  029220 

C..  +  .+  HF  (14  ),  HCI.(IS),  HeR(16),  HI  (  1 7 ) ,  CL0(18),  0CS(19),  H2C0(20)  029230 

DATA  HMOLS/  8H  H20  ,  8H  C02  ,  8H  03  ,  029240 

1  8H  N20  ,  8H  CO  ,  8H  CH4  ,  029250 

2  8H  02  8H  NO  ,  8H  S02  ,  029260 

3  8H  N02  ,  81!  NH3  ,  8H  HN03  ,  029270 

4  8H  OH  6H  HF  ,  8H  HCL  ,  029280 

5  OH  HBR  ,  8H  HI  ,  8H  CLO  ,  029290 

6  8H  OCS  ,  OH.  H2C0  /  029300 

C+... .MOLECULAR  WEIGHTS  029310 

DATA  AIRMWT/28 .964/ , AMWT/ 1 8 . 01 5 , 44 .010,47.998,44.01 ,28.01 1 ,  029320 

1  16.043,31.999,30.01,64.06,46.01,17.03.63.01,17.00,20.01,  029330 

2  36.46.80.92,127.91,51.45,60.08,30.03/  029340 

C.....VMIXN2  IS  THE  VOLUME  MIXING  RATIO  OF  N2  029350 

DATA  VMIXN2/7*.  8084ES/  029360 

C.... .DEFAULT  VOLUME  MIXING  RATIOS  FOR  THE  UNIFORMILY  MIXED  GASES  029370 

C.....FOR  USER  SUPPLIED  ATMOSPHERIC  PROFILES,  029380 

C*. ...  IN  PARTS  PEfc  MILLICI-,  FROM  THE  U.  S.  STANDARD  ATMOSPHERE,  1976.  029390 

C+...+ THESE  ARE  NOT  THE  SAME  VALUES  AS  USED  IN  MODELS  1  TO  6  029400 

DATA  VMIXST/O. 0.322. -  0 . 0 , 0. 27 , 0 . 1 9 , 1 .5 , 2 . 0948E+5, 1 3+0. 0/  029410 

END  029420 
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BLOCK  DATA  MLATM8 

c»*«.**» .............. 

C  THIS  SUBROUTINE  INITIALIZES  THE  6  BUILT-IN  ATMOSPHERIC  PROFILES 
C  (FROM  'OPTICAL  PROPERTIES  OT  THE  ATMOSPHERE,  THIRD  EDITION' 

C  AFCRL-72-0497  (AD  753  075)  ANO  'U.S.  STANDARD  ATMOSPHERE  1976) 

C  AND  SETS  OTHER  CONSTANTS  RELATED  TO  THE  ATMOSPHERIC  PROFILES 
C***  +  +  **  +  +  +  +  *  +  +  ****  +  *+*  +  +  +  >,  +  ***  +  *  +  **  +  w*******»*  +  **  + *******  +*++***+****♦♦ 
CS  DOUBLE  PRECISION  ATMNA1 , ATMNA2, ATMNA3, ATMNA4 , ATMNA5, ATMNA6 

COMMON  /MLATMC/  ALT ( 34 ) , Pl( 34 ) , P2< 34 ) , P3( 34 ) , P4( 34 ) , P5( 34 ) , P6 ( 34 ) 

+ , T I ( 34 ) , T2 ( 34 )  T3 ( 34 ) , T4 ( 34 ) , T5 ( 34 ) , T6( 34 ) 

+.AMOL1 1 (34) ,AM  12(34)  ,  AMOL1 3(  34  ) ,  AMOL 1  4  (  34  )  ,  AMOL1  5(  34)  ,  AI.10L1  S(  34 ) 
+ , AMOL 1 7(34) , AMOL 18(34) 

+.AMOL21 (34) ,AM0L22(34) , AMOL23(34 ) , AM0L24 ( 34) ,AMOL25(34) ,AMOL26(34) 
+,AMOL27(34) , AMOL 28 (34) 

+.AMOL31 (34) , AM0L32 ( 34 ) , AM0L33 ( 34 ) , AM0L34 ( 34 ) , AM0L35( 34 ) , AMOL36( 34 ) 
+,AMOL37(34) ,AMOL38(34) 

+ , AMOL4 1(34), AM0L42 l 34 ) . AMOL43( 34 ) , AM0L44 ( 34 ) , AM0L45( 34 ) , AM0L46 ( 34 ) 
+ , AMOL47 ( 34 ) , AM0L48 ( 34 ) 

+.AMOL51 (34) ,AM0LS2(34) ,AM0L53(34) , AM0L54(34) ,AM0L55(34) ,AM0L56(34) 
+ , AMOLS7 ( 34 ) , AMOL 58 ( 34 ) 

+ , AMOL61 ( 34 ) , AMOL62 ( 34 ) , AM0L63( 34 ) , AM0L64 ( 34 ) , AMGL65( 34 ) . AM0L66( 34 ) 
+,AM0L67(34) ,AM0L6B(34) 

+  ,  A  TAIN  A  1(3),  ATMNA2  (  3)  ,  ATMNA3(  3  )  ,ATMNA4(3)  ,  ATMNA5(  3)  ,ATMNA6(3) 


OATA  ATMNA1 

/8HTR0PICAL.8H 

,8H 

/ 

DATA  ATMNA2 

/8HMI0LATIT,8HUDE  SUMM.8HER 

/ 

DATA  ATMNA3 

/8HMI0LAT IT .8HUDE  WINT.8HER 

/ 

DATA  ATWNA4 

/8HSUBARCT I ,8HC  SUMMER  ,8H 

/ 

DATA  ATMNAS 

/8HSUBARCT I , 8HC  WINTER  , 8H 

/ 

DATA  ATMNA6 

/8HU.  S. 

ST.8HANDARD 

,  ,8H1 962 

/ 

DATA  ALT  / 

0.  , 

1 . . 

2. . 

3. . 

4.  , 

5. , 

6.  , 

7.  , 

8.  , 

9.  , 

10.  , 

11., 

12.  , 

13.  . 

14. , 

15. , 

16.  , 

17.  , 

18.  . 

19.  . 

20.  . 

21 . . 

22., 

23.  , 

24.  , 

25.  , 

30.  , 

35. , 

40., 

45.  . 

50.  , 

70.  , 

100.  , 

0./ 

OATA  PI  / 

1 .0135+03, 

9.040E+02 , 

8.050E+02, 

7. 150E+02. 

6.330E+02, 

5. 590E-02 , 

4 . 920E+02 , 

4 . 3206+02 • 

3 . 780E+02 , 

3 . 290E+02 . 

2 . 860E+02 , 

2 . 470E+02 , 

2. I30E+02, 

1 .8206+02, 

1 .560E+02, 

.  320E+02 , 

1 . 1 1 0E+02, 

9.3706*01  , 

7 . 690E+01 , 

6.660E+OI , 

5.650E+01 , 

4.800E+01 . 

4.0SOE+O1 , 

3.5006+01  , 

3. 000E+01 , 

2.S70E+01 . 

1 .2206+01 , 

6.000E+00, 

3.050E+00, 

1 .590E+00, 

8.540E-01 , 

5.790E-02, 

3.0006-04, 

0.  / 

DATA  P2  / 

1 .013E+03, 

9.020E+02. 

8.020E+02, 

7. 100E+02. 

6.280E+02, 

5.5406+02, 

4 . 87CE+C2 , 

4 . 260E+02 , 

3. 7206+02, 

3.240E+02, 

2.810E+02, 

2 . 430E+02 , 

2.090E+02, 

1 .790E+02. 

1  .5306+02, 

1 . 300E+02 . 

1  . 1 10E+02, 

9. 500E+01 , 

8.120E+0I , 

6.950E+01 , 

5.950E+01 , 

5. 100E+01 , 

4 . 370E+01 , 

3.760E+01, 

3. 220E+01 , 

2.770E+0I , 

1 .320E+01 , 

6.520E+00, 

3.330E+00, 

1 . 760E+00, 

9.510E-01 , 

6.7I0E-02. 

3.000E-04, 

0.  / 

DATA  P3  / 

1 .018E+03, 

8 . 973E+02 . 

7 .8976+02 , 

6 . 938E+02 , 

6.081E+02, 

5. 313E+02, 

4 . 627E+02 , 

4.016E+02, 

3.473E+02 , 

2.992E+02. 

2.568E+02, 

2. 199E+02. 

1  .382C+02 , 

1 . 61 OE+02 , 

1 -378E+02, 

1 . 17SE+02. 

1 .007E+02, 

8.6I0E+01  , 

7.350E+01 , 

6.200E+01 , 

S.370E+01 , 

4 . 580E+01 , 

3.910E+01 , 

3. 340E+01 , 

2.8G0E-101  f 

2.430E+01 , 

1 . 1 10E+01 , 

5. 180E+00, 

2 . 530E+00 , 

1 . 290E-00 . 

6.820E-01 , 

4.670E-C2, 

3.000E-04, 

0.  / 

DATA  P4  / 

►  1 .0l0E-*-C3,, 

8.96CE+02, 

7.929E+02,, 

7 . 0C0E+02 , 

6 . 1606+02 , 

5 . 4 10E-02 , 

*  4. 7306+02,  4.130E+02,  3.590F+02,  3.107Et02.  2.577E+02,  2.300E+02, 


029430 

029440 

029450 

029460 

029470 

029480 

029490 

CS029500 

C29510 

029520 

029530 

029540 

029550 

029560 

029570 

029580 

029590 

029600 

029610 

029620 

029630 

029640 

029650 

029660 

029670 

029680 

029690 

029700 

029710 

029720 

029730 

029740 

029750 

029760 

029770 

029780 

C29790 

029800 

029810 

029920 

C29830 

029840 

029850 

029860 

029870 

029880 

029890 

029900 

029910 

029920 

029930 

029940 

029950 

029960 

029970 

C29980 

029990 

030000 

030010 

030020 


1.977E+02, 
7.9806+01 , 
3.2276+01 , 
9.8706-01 . 
OATA  PS  / 

1 .0I3E+03, 
4.4676+02, 
1 .7666+02, 
6. 8826+01 , 
2.6496+01 , 
5.719E-01, 
OATA  P6  / 

1 .0S3E+03, 
4.722E+02, 
1.9406+02, 
7. 565E+01 , 

‘  2.972E+01 , 
7.978E-01 , 
OATA  T 1  / 
3.000E+02, 
2.6406+02, 
2.2406+02, 
1 .990E+02, 
2. 1906+02, 
2.700E+02, 
DATA  T2  / 
2.9406+02, 
2.610E+02. 
2.2206+02, 
2. 1606+02, 
2.230E+02, 
2.760=402, 
DATA  T3  / 

2. 722E+02, 
2.4376+02, 
2. 1876+02. 
2.1576+02. 
2. 1526+02, 
2 . 6576+C2 , 


1.700E+02, 
6.8606+01 , 
2.780E+01  , 
7.070E-02, 

8.878E+02, 
3.853E+02, 
1 .510E+02, 
5.8756+01 
2.256E+01 , 
4.016E-02, 

8.9866+02, 
4.111E+02, 
1.6586+02, 
6.4676+01 , 
2.5496+01 . 
5.S20E-02, 

2.9406+02, 
2.5706+02, 
2. 1 70E+02 , 
2.0306+02 . 
2.2106+02. 
2.190E+02, 

2.9006+02, 
2.5S0E+02, 
2. I60E+02, 
2.17OE+02, 
2 . 240E+02 > 
2.180E+02. 

2 . 687E+02 « 
2.3776+02. 
2. 1826+02, 
2. 1 526+02 . 
2. 1526+02. 
2.3076+02. 


1 . 460E+02 , 
5.8906+01 , 
1 .3406+01 , 
3.000E-04, 

7.77SE+02, 
3.308E+02, 
t .291E+02. 
5.0146+01 , 
1 .020E+01 , 
3.000E-04, 

7.950E+02, 
3.5656+02, 
1.417E+02, 
5.S29E+01 , 
1.197E+01, 
3.008E-04, 

2 . 880E+02 , 
2.5006+02, 
2. 100E+02, 
2.070E+02, 
2.320E+02, 
2.100E+02, 

2.850E+02, 
2.480E+02, 
2.160E+02, 
2. 180E+02, 
2 . 340E+02 , 
2. tOOE+02, 

2.652£-t02, 
2.3176+02, 
2. 1 7764-02 , 
2. 152E+02, 
7. 1746-402, 
2.102C+02, 


1.250E402.  1  .08064-02,  9.28CE401, 
S.070E4-01  ,  4.360E4-01,  3.75CE:01, 
6 .6106400 ,  3.4006400,  1.810E400. 
0.  / 

6.7981:402.  5.932E402,  5.158E402, 
2.829C402,  2.418E402,  2.C67E402. 
1.103E402.  9 .43IE+01 ,  8.058=401, 
4 . 277E401 ,  3.647E+01 ,  3.I05E40I. 
4.701 E+00 ,  2.2436400,  1.113E400. 
0.  / 

7 . 01 2E+02,  6 . 1 66E+02 ,  5.405E402, 
3.0806+02,  2 . 6506+02 ,  2.270E+02, 
1.211 £+02 ,  1. 0356+02,  8.850E+01, 
4 . 729E+01 ,  4.0476+01,  3.4676+01, 
5 . 746E+00 ,  2.8716+00,  t. 4916+00. 
0.  / 

2.840E+02,  2.7706+02,  2.7006+02, 
2.440E+02,  2.3706+02,  2.3006+02, 
2.040E+02,  1.9706+02,  1.9506*02, 
2.11 0E+02 ,  2.1506+02,  2.170E+02, 
2.430E+02,  2.5406+02,  2.650E+02, 
1 . 900E+02/ 

2 . 790E+02 ,  2.7306+02,  2.670E+02, 
2.420E+02,  2.3506+02,  2.290E+02, 
2. 160E+02,  2.1606+02,  2.1606+02, 
2 . 190E+02 ,  2.200E+02,  2.220E+02, 
2.4506+02,  2 . 580E+02 ,  2.7006+02. 
1 .900E+02/ 

2.6176+02,  2.557E+02,  2.497E+02, 
2.2576+02.  2.1976+02,  2.192E+02. 
2. 172E+02,  2. 1676+02,  2.1626+02. 
2.1526+02,  2.1526+02,  2.1=26+02, 
2.2786+02,  2.4326+02,  2.585E+02. 
1 .9006+02/ 


030030 

030040 

030050 

030060 

030070 

030C80 

030090 

030100 

030110 

030120 

030130 

030140 

030150 

030160 

03C170 

030180 

030190 

C30200 

030210 

030220 

030230 

030240 

030250 

030260 

030270 

030280 

030290 

030300 

030310 

030320 

030330 

030340 

030350 

030360 

030370 

030380 

030390 

030400 

030410 


DATA  T4  / 

2 . 870E+02 , 

2.820E+02, 

2 . 760E+02 , 

2.7106+02,  2.6606+02, 

2.6006+02. 

030420 

030430 

2 . 530E+02 . 

2. 4606+02. 

2.3906+02, 

2.3206+02.  2.2506+02. 

2.2506+02, 

030440 

2.2506+02, 

2. 25CE+02 . 

2.2=06+02. 

2.2506+02,  2.2506+02, 

2.2506+02. 

030450 

2.2506+02. 

2.250E+02. 

2.2606+02, 

2.2506+02.  2. 2505+02, 

2 . 250E+02 , 

030460 

2 . 260E+C2 , 

2.2806+02. 

2. 3506+02, 

2.4706+02.  2.6206*02, 

2.7406+02, 

030470 

2.7706+02. 

2.1606+02, 

2.1006+02, 

1.9006+02/ 

030480 

DATA  T5  / 
2.571 E+02 . 

2.5916+02, 

2.5596+02, 

2.5276+02,  2.4776+02, 

2 . 409E+02 , 

030490 

030500 

2.3416+02. 

2.2736+02. 

2.2066+02, 

2. 1726+02.  2. 172E+02. 

2. 1726+02, 

030510 

2. 1726+02. 

2. 172E+02. 

2.1726+02, 

2.172E+02,  2 . 1 66E+02 . 

2. 1606+02, 

030520 

2.1546+02, 

2.148E+02. 

2.1416+02, 

2.1366+02,  2.1306+02, 

2. 1246+02, 

030530 

2. 1 18E+02, 

2.1126+02. 

2 . 1606+02 , 

2.2226+02,  2.3476+02, 

2.4706+02. 

030540 

2.593E+02, 

2.4576+02, 

2.1006+02, 

1 .9006+02, 

030550 

OATA  T6  / 
2.8816+02, 

2.8166+02, 

2.751 6+02 , 

2.6876+02.  2.6226+02, 

2.5S/6+02, 

030560 

030570 

2.4926+02, 

2.4276+02, 

2 . 362E+02 . 

2 . 297E+02 ,  2.2326+02, 

2. 1686+02, 

03058C 

2. 166E+C2, 

2.1666+02, 

2.1666+02, 

2.1666+02,  2.1666+02, 

2. 1666+02, 

030590 

2. 166E+02, 

2.1666+02, 

2.1666+02, 

2.1766+02,  2.1866+02, 

2.  1965+02, 

030600 

2.2066+02. 

2.2166+02, 

2. 2656'  2, 

2.3o56+02,  2.5346+02, 

2.6426+02, 

030610 

2.7066+02, 

2.1976+02, 

2.1001  :, 

1 .9006+02/ 

030620 

DATA  AMQL1 1 
6.353E+17, 
2/8426+16, 
2.006E+14, 
1.672E+13, 
2.006E+13, 
2. 1066+11 , 
OATA  AMOL1 2 
7.864E+15, 
4.447E+15, 
2.2736+15, 
9.4806+14 , 
3. 2756+14 , 
7.5626+12, 
OATA  AMOL1 3 
7.028E+11 , 
S.396E+11 , 
S.396E+11 , 
1 .1296+12, 
4.267E+12, 
5.3966+10, 
DATA  AMOL14 
6.6726+12, 
3.7736+12, 
1.9296+12, 
8.0436+11 . 
2.779E+I1 , 
6.417E+09, 
DATA  AMOL1S 
1.787E+12, 
1.011E+12, 
5.1676+11, 
2. 1S4E+11 , 
7.4446+10, 
1.7196+09, 
DATA  AMOLIG 
3.8136+13, 
2.1566+13, 
1 .1026+13, 
4.5966+12, 
1.5886+12, 
3.f"7E+io. 
DATA  AMO LI  7 
4.992E+18. 
2.8236+18, 
1.4436+18. 
6.01 6E+1 7 , 
2.079E+17, 
4.8016+15, 
OATA  AM3L18 
1.0616+19. 

1 .052E+19. 
S.380E+18. 
2. 2436+18, 
7.7506+17, 

1 .790E+16, 
DATA  AMCL2I 
4.6816+17, 
2.0406+16, 
2.006E+14. 


/ 

4.3476+17, 
1.5716+16, 
6.018E+1J, 
1 .6386+13, 
2.240E+13, 
4. 681 £+09 , 
/ 

7.208E+1S, 
4.014E+1S, 
2.005E+15, 
7.844E+14, 
2.780E+14. 
6.321E+11 , 
/ 

7.028E+1 1 i 
5.145E+11 . 
5.647E+11 . 
1 .757E+12, 
4.267E+12. 
1 .0796+99. 
/ 

6.1166+12. 
3.406E+12, 
1 .701E+12, 
6.656E+1 1 i 
2.359E+1 1 , 
5.364E+08. 
/ 

1 .6386+12. 
9.122E+11 , 
4.558E+1 1 . 
1 .783E+1 1 , 
6.319E+10. 
1 .437E+08, 
/ 

3.49SE+13. 
1 .9466+13, 
9. 7236+12, 
3.803E+12, 
1 .348E+12. 
3.065E+09, 
/ 

4.576E+18, 
2.548E+18. 
1 .273C+18, 
4.980E+17, 
1 .765E+17, 
4.013E+14. 
/ 

1 .706E+19. 
9.498E+18. 
4.7456+18. 
1 .8S6E+18. 
6.579E+1 7 . 
1  .4966*15. 
/ 

3.110E+17. 
1 .237E+16, 
6.018E+13, 


3.H0E+17, 
8. 359E+ 1 5 , 
3. 3446+13, 
1.505E+13, 
i .2046+13, 
3.3446+07, 

6. 5806+15, 
3.6126+15, 

1  .776E+1S, 
6.5266+14, 
1.2576+14, 
3.4166+09, 

6.7776+1 1 , 
4.3946+1 1 . 
5.6476+1 1 , 
2.3846+12, 
3.0126+12, 
5.3966+05, 

6.5836+12, 
3.0656+12, 
1 .5076+12, 
5.5376+11 , 
1 .0676+11, 
2.6986+06, 

1.4966+12, 
8.2106+1 1  , 
4.0376+11, 
1 .4836+1  1  , 

2  8576+10, 
7.7636+05, 

3. 1916+13, 
1.7516+13, 
8.6126+12. 
3.1646+12, 
6.09G6+11 . 
1 .6566+07, 

4.1786+18, 

2.2936+18, 

1.1286+18, 

4.1436+17, 

7.9826+16, 

2.1686+12, 

1  .5576  +  19, 
8.5486+18, 
4.2036+18, 
1 .5446+18, 
2.9756+17, 
3.0836+12, 

1 .973E+17, 
7.0226+15, 
3.3446+13, 


1 .5716+17, 
4.012C+15, 
2 .541 £  +  13 , 
1 .705E+13, 
3.6786+12, 
0.  I 

5.9686+15, 
3.2236+15, 
1 . 547E+1 5 , 
5.4396+14. 
5.9036+13, 
0.  / 

6.4006+1 1 , 
4.8946+11 , 
5.8986+1 1 . 
3.012E+12, 
1.1556+12, 
0-  / 

5  0636+12, 
2.734E+12, 
1 .3136+12, 
4.615E+1 1 , 
5 . 0096+10 , 
0.  / 

1.3566+12, 
7.324E  +  1 1 , 
3.5166  +  1 1 , 
1.2366+11 , 
1 .3426+10, 
0-  / 

2.893E+13, 

1 .5626+13, 
7.S01E+12. 
2.637E+12. 
2.862E+1 1 . 
0.  .  / 

3.7896+18. 
2.0466+18, 
9.8226+17. 
3.4536+17, 
3.7486+16, 
0.  / 

1.4126+19, 

7.6266+13, 

3.6616+18, 

1 .2876+18, 

1 .3976+17. 

0.  / 

1 .1036+17, 
4.0126+15, 
2.541E+13, 


7.3566+16, 

1.6726+15, 

2.1406+13, 

1.7056+13, 

1.4386+12, 


5.440E+15, 

2.885E+15, 

1.3476+15, 

4.5486+14, 

2.871E+13, 


5.8986+11 , 
4.8946+11 , 
5.8986+11 , 
3.5146+12, 
5. 1456+1 1 , 


4.6156+12, 
2.448E+12, 
1.1436+12, 
3. 8596+11  , 
2.4366+10, 


I .2366+12, 
6.5566+11. 
3.062E+11 . 
1 .0346+11 , 
6 . 525E+09, 


2.6376+13, 
1 .3996+13, 
6.5326+12, 
2.2056+12, 
1 .3926+11 . 


3.4536+18, 
1 .8316*18. 
8.5536+17. 
2.8876+17, 
1 .8236+18, 


1 .2876+19. 
6.8266+18, 
3.1886+18, 
1 . 076E+ 18 , 
6.7946+16, 


6.3536+16, 
2. 140S+15, 
2 . 14GE+13 , 


5.015E+16, 
5.6846+14, 
1 ,872E»13, 
1 .8066+13, 
6.3536+11. 


4. 934E+15, 
2.568E+15, 
1 . I49E+15, 
3. 8566+14, 
1.4356+13. 


5.6476+1 1 , 
5.  1456+1  1  . 
8.6596*1 1 . 
4.0166+12, 
1 .631E+1 1 , 


4. 1866+12, 
2. 1706*12. 
9.740E+1 1 , 
3.2726+ 1 1 , 
1.2176+10, 


1 . 1216+12, 
5.835E+1 1 . 
2.6116+1 1 , 
8.7646+10, 
3. 260E+09. 


2.392E+13, 
1.2456+13. 
S.570E+I2, 
1 -870E+I2, 
6. 9556+10, 


3. 1326+18. 
1.6306+18, 
7 . 294E  +  1  7 , 
2.4486+17, 
■9.  I07E  +  15. 


1 . 1676+19. 
6.0766+18. 
2.7196+18, 
9. 1256+17, 
3.3956+16, 


3.3446+16, 
7.3566+14. 
1 .8726+13, 


030630 
030640 
03C6S0 
030660 
030670 
030680 
030690 
030700 
030710 
030720 
030730 
030740 
030750 
030760 
030770 
030780 
030790 
030800 
030810 
030820 
030830 
030340 
030850 
03086C 
030870 
030880 
030890 
030900 
030910 
030920 
030930 
030940 
030950 
030960 
030970 
030980 
030990 
G31000 
031010 
031020 
031030 
031040 
031050 
031050 
0310.0 
0310  JO 
031090 
031100 
031110 
031 120 
031 130 
031140 
031150 
031160 
031170 

osiiec 

031190 

031200 

031210 

031220 


95 


;?>u/n  V*i.**  •  „**  %*v'«^£****  m*  *^T\- 


1  .6726+13,  1.638E+13,  I.505E+13, 
2.0066+13,  2.2406+13,  1.2046+13, 
2.106E+11,  4.681 E+09 ,  3.344E+07, 
DATA  A MO 12 2  / 

8.084E+15,  7.3346+15.  6.663E+15, 
4.4556+15,  3.99CE+15.  3.S34E+15, 
2.251 £+15 .  I .9816+15,  1.694E+15, 
8.9886+14,  7.653E+14.  6,5266+14, 
3.452E+14,  2.9S7E+14,  1.349E+14, 
8 . 2336+12 ,  7.3596+11,  3.4166+09, 


1.7056+13,  1.705E+13,  1.80GE+13, 
3.678E-12.  1.4386+12,  6.3S3E+11, 
0.  / 


DATA  AM0L23 
7.530E+11 . 


6.0486-t  15, 
3.2036+15, 
1 ,4396+15, 
5.5686+14, 
6.363E+13, 
0.  / 


5.479E+15, 
2.858E+15, 
1 .223E+15, 
4.7496+14, 
3.086E+13, 


4 . 9506+ 1 5 , 
2. 53764-15, 
1 .0526+15, 
4.0496+14, 
1 .5596-413, 


7.5306+1 1  ,  7 .5306-4-1 1 ,  7.7816+11,  8.0326+11,  8.2936+11, 


031230 

031240 

031250 

031260 

031270 

031280 

031290 

031300 

031310 

031320 

031330 

031340 


8.6596+11 , 

9.412E+11 , 

9.914E+11 , 

1  .0796  +  12, 

1.1296+12, 

1 .280E+12, 

031350 

1 .506E+12, 

1 .8826+12, 

2.2396+12, 

2.3846+12, 

2. 6356+12 , 

3.0126+12, 

031360 

3.514E-H2, 

4.016E+12, 

4.267E+12, 

4.5186+12, 

4.5186+12, 

4.2676+12, 

031370 

4.0166+12, 

3.765E+12, 

2.5106+12, 

1 .155E+12, 

5.1456+11, 

1 .6316+1 1 , 

031380 

5. 396E+10 , 

1 .079E+09, 

S.396E+05 , 

0.  / 

031390 

DATA  AMOL24 

/ 

031400 

6.859E+12, 

6.223E+12, 

5.654E+12, 

5. 1326+12, 

4 . 649E+12 , 

4.2006+12. 

031410 

3. 780E+12 , 

3.386E+12, 

3.041 E+12 , 

2.7156+12, 

2.4256+12, 

2. 1S3E+12. 

031420 

1.910E+12, 

1 .6816+12, 

1.4376+12, 

1.2216+12, 

1.0436+12, 

8.9226  +  1  1  . 

031430 

7.626E+1 1  , 

6.497E+1 1 . 

5.537E+1 1 , 

4.724E+1 1 , 

4.030E+11 , 

3.436E  +  1 1  , 

031440 

2.Q29E-4-1 1  , 

2.509E+1 1 , 

1.1446+11, 

5.3996+10, 

2.6186+10, 

1 .322E+10, 

031450 

6. 990E+09 , 

6.2446+08 , 

2.89SE+06, 

0.  / 

031460 

DATA  AMOL25 

/ 

031470 

1 .837E+12, 

1 .667E+12. 

1 .5146+12, 

1 .375E+12, 

1.2456+12, 

1 .1256+12, 

031480 

1 .012E+12. 

9.069E+1 1 , 

8. 146E+1 1 , 

7.272E+11, 

6.496E+1 1 , 

5.7666+1 1 , 

031490 

5.11 6E4-1 1  , 

4.503E+1 1 , 

3.8496+11 , 

3.27CE+1 1 , 

2.7926+11 , 

2.3906+1 1 . 

031500 

2.0436+11  , 

1 .7406+1 1 , 

1.4836+11, 

1 .2656+11 , 

1 .0796+1 t , 

9.203E+I0, 

031510 

7.846E+10, 

6.720E+10, 

3.065E+10, 

1.446E+10, 

7 . 014E+09 , 

3.542E+09. 

031520 

1.8726+09, 

1 .6736+08, 

7.7636+05, 

0.  / 

031530 

DATA  AMO  1.26 

/ 

031540 

3.919E-4-13, 

3.556E+13, 

3.2316+13, 

2 . 932E+1 3 , 

2.6576+13, 

2 . 400E+1 3 , 

031550 

2.16064-13, 

1 .935E+13, 

1 .738E+13, 

1  .5516+13, 

1 .386E+13, 

1.2306+13, 

031560 

1.091E+13, 

9.6076+12. 

8.2*16+12, 

6.977E+12, 

5.9576+12, 

5.0996+12. 

031570 

4.358E4-12, 

3.713E+12. 

3. 164E+12, 

2.7006+12. 

2.303E+12, 

1 .963E+12, 

031580 

1.674E+12, 

1 .4346+12, 

6.5396+11, 

3.0856+11, 

1.4966+11, 

7.557E+10. 

031590 

3.994E+10, 

3.5686+09. 

1 .6566+07, 

0.  / 

031600 

DATA  AMOL27 

/ 

031610 

5. 132E+I8, 

4.6566+18. 

4.2206+18, 

3.94C6+18, 

3.470E+18, 

3.1426+18, 

031620 

2.828E+18, 

2. 5336+18. 

2.2756+18, 

2.0316+18, 

1 .815E+13, 

1.6116+18, 

031630 

1.4296+18, 

1.2586+18. 

1 .0756+18, 

•9.135E+17. 

7.800E+17, 

6.676E+17, 

031640 

5.706E+17, 

4.8616+17, 

4. 1436+17, 

3.5356+17, 

3.0156+17, 

2.5716+17, 

031650 

2. 1926+17 , 

1 .877E+1 7 , 

8.5626+16, 

4.0396+16, 

1.9596+16, 

9.8946+15, 

031660 

5. 230E+15, 

4.6726+14, 

2.1636+12, 

0.  / 

031670 

DATA  AM9L28 

/ 

031680 

1 .9136+19, 

1 .7366+19, 

1 .5776+19. 

1 .4316+19, 

1.2976+19, 

1 .1716+19, 

031690 

1 .054E+19. 

9.442E+18, 

8.4816+18, 

7.5726+16, 

6.7646+18, 

6.0036+18, 

031700 

5.326E+18, 

4.6696+18, 

4.0086+18, 

3.4056+18, 

2.9036+18, 

2.4696+18, 

031710 

2. 127E+1G. 

1.8126+16, 

1.5446* 18. 

1.3186+18, 

1 . 1246+18, 

9.5836+17, 

031720? 

8.170E+17, 

6.996C+17. 

3. 1926+17 , 

1.5066+17, 

7.3026+16, 

3 . 6886  +  1 6 , 

031730 

1 . 949E+16, 

1.7416+15. 

8.0836+12, 

0.  / 

031740 

DATA  AM0L31 

/ 

031750 

1 .1706+17, 

8.3596+16, 

0.010E+16, 

4.012E+16, 

2.2076+16, 

1.2716+16, 

031760 

7.022E+15, 

2.8426+15, 

1 .1706+15, 

5.350E+14, 

2.5086+14, 

2.3076+14, 

031770 

2.0066+14, 

6.0186+13, 

3.3446+13, 

2.541E+13, 

2.1406+13, 

1 .872E+I3, 

031780 

1 .672E+13, 

1 .6386+13, 

1 .5056+13, 

1.7056+13, 

1 .705E+13, 

1.8066+13, 

031790 

2.0066+13, 

2.2406+13, 

1 .2046+13, 

3.673E+12, 

1 .4386+12, 

6.3536+11 , 

031800 

2.1066+11  , 

4.6616+09, 

3.344E+07, 

0.  / 

031810 

DATA  AM0L32 

/ 

031320 

8. 9035+15.  7.957E+15,  7. 1006+15,  6.3266+15,  5.679E+15,  5.083E+15,  031830 

4.5376+15,  4.039E+15,  3.583E+15,  3.169E+15,  2.795E+15,  2.399E+15,  031840 

2.057E+15.  1.7646+15,  1.513E+15,  1.297E  +  15,  I.HtE+15,  9.522E+14,  031850 

8.147E+14,  6.977E+14.  5.966E+14,  5.089E  +  14,''  4.344E+14,  3.711E+14,  031360 

3.178E+14,  2.700E+14.  1.221E+14,  5.437E+13,  2.487E+T3,  1.193E+13,  03t870 

6.137E+12,  4.840E+11.  3.412E+09,  0.  /  031880 

OAT A  AM0L33  /  031890 

7.S30E+11,  6. 777E+1 1 ,  6.149E+11.  6.149E+H,  6.149E+I1,  7.279E+U,  031900 

8.032E+11,  9.663E+1 1 .  1.129E+12,  1.506E+12,  2.008E+12,  2.635E+12,  031910 

3.263E+12,  3.765E+12,  4. 0166+12,  4.267E+12,  4.518E+12,  4.894E+12,  031920 

5.145E+12,  5.396E+12,  5.647E+12,  5.396E+12,  5.396E+12,  4.894E+12,  031930 

4.518E+12,  4.267E+12.  2.384E+12,  1.1S5E+I2,  5.145E+11,  1.631E+11,  031940 

5 . 396E+10 ,  1.079E+09,  5.396E+05,  0.  /  031950 

DATA  AM0L34  /  031960 

7. 554E+12 ,  6.751E+12.  6.024E+12,  5.367E+12,  4.818E+12,  4.313E+I2,  031970 

3.850E+12,  3.427E+12.  3.04IE+12,  2.6B9E+12,  2.371E+12,  2.035E+12,  031980 

1.746E+12,  1.497E+12.  1.284E+12,  1.100E+12,  9.427E+11,  8.079E+11,  031990 

6.913E+11,  5.920E+11.  5.062E+11,  4.318E+11,  3.686E+11,  3.149E+11,  032000 

2.696E+11,  2.291E+11,  1.036E+11,  4.613E+10,  2.110E+10,  1.012E+10,  032010 

5.207E+09,  4.107E+08.  2.895E+06,  0.  /  032020 

DATA  AM0L3S  /  032030 

2.023E+12,  1.808E+12,  1.614E+12,  1.438E+12.  1.291E+12,  1.155E+12.  032040 

1.031E+12,  9. 1796+11,  8.144E+11,  7.203E+11,  6.351E+11,  S.4S1E+11,  032050 

4.676E+11,  4.009E+11,  3.440E+11,  2.947E+11,  2.525E+11,  2.164E+11,  032060 

1.852E+11,  1 .5866+1 1  *  1.356E+I1,  1.156E+11.  9.873E+10,  8.434E+10,  032070 

7 . 222E+10 ,  6.136E+10.  2.774E+10,  1.2366+10,  5.653E+09,  2.712E+09,  032080 

1 . 395E+09 ,  1 . 100E+08 .  7.755E+05,  0.  /  032090 

OATA  AM0L36  /  032100 

4.3I7E+13,  3. 8586+13,  3.442E+13,  3.067E+13,  2.753E+13,  2.4656+13,  032110 

2. 200E+13 ,  1,9586+13.  1.737E+13,  1.537E+13,  1.355E+13,  1.163E+13,  032120 

9. 976E+1 2 ,  8.554E+12,  7.338E+12,  6.287E+12,  5.387E+12,  4.617E+12,  032130 

3.950E+12,  3.383E+12.  2.893E+12,  2.467E+12,  2.106E+12,  1.799E+12,  032140 

1.541E+12,  1.309E+12.  5.919E+11,  2. 6366+11,  1.206E+11,  5.785E+10,  032150 

2.9766+10,  2.347E+09,  1.654E+07,  0.  /  032160 

DATA  AMCL37  /  032170 

S. 652E -18 ,  5.051E+18,  4.507E+18,  4.016E+18,  3.605E+18,  3.227E+18,  032180 

2.0B0E+18,  2 . 5646+18 .  2.275E+18,  2.012E+18,  1.774E+18,  1.523E+18,  032190 

1 .3066+18,  1 . 1 20E+1 8 ,  9.608E+17,  8.232E+17,  7.054E+17,  6.045E+17,  032200 

S. 1726+17,  4.430E+1 7 ,  3.788E+17,  3.230E+17,  2.758E+17,  2.356E+17,  032210 

2.017E+17,  1. 7146+17.  7 . 7S0E+16,  3.451E+16,  1.579E+16,  7.575E+15,  032220 

3 . 896E+15 ,  3.073E+14,  2.166E+12,  0.  /  032230 

DATA  AM0L38  /  032240 

2.107E+19,  1.883E+19,  1.680E+19,  1.497E+19,  1.3446+19,  1.203E+I9,  032250 

1.074E+19,  9. 5576+18.  8.480E+18,  7.5006+18,  6.613E+1B,  5.6766+18.  032260 

4.8636+13,  4.1756+18,  3.5816+18,  3. 0696+18,  2.629E+18,  2.2536*18,  032270 

1.9286+18,  1 .65 1 6+* 8 ,  1.4126+18,  1.2046  +  18,  1.028E+18,  8.7B1C+17,  032280 

7.5196+17,  6.3896+17,  2.889E+17,  I.287E+17,  5.886E+16,  2.823E+I6.  032290 

1.452E+16,  1.1456+15,  B. 0756+12,  0.  /  032300 

OATA  AM0L4 1  /  032310 

3.0436+17,  2.0066+17,  1.4046+17,  9.028E+16,  5.684E+16,  3.3446+16,  032320 

1 . 8056+16 ,  9.6966+15.  4.3476+15,  1.4046+15,  5.015E+14,  3.1436+14.  032330 

2.0066+14,  6.0186-13,  3.344E+13,  2.541E+13.  2.1406+13,  1.872E+I3,  032340 

1.6726+13.  1.6386+13,  1. 5056+13,  1.7056+13,  1.705E+13,  I.806E+13,  032350 

2.0066+13,  2.24CE+13,  1.2046+13,  3.6786+12,  1.4386+12,  6.3536+11.  032360 

2.1066+11,  4.681 E  +09,  3.3446+07,  0.  /  032370 

DATA  AM0L42  /  032380 

8.3146+15,  7. 5316+15,  6.822E+15,  6.1466+15,  5.5186+15,  4.964E+15,  032390 

4.4646+15,  4.0116+15,  3.5906+15,  3.202E+t5,  2.8456+15,  2.444E+15,  032400 

2.1016+15,  1 .8066+15,  1.5516+15,  1.3286+15,  1.148E+15,  9.8616+14,  032410 

e. 4806+14,  7.2906+14,  6.259E+14,  5.388E+14,  4.633E+14,  3.9856+14,  032420 


3.414E+14,  2.915E+14,  1.363E+I4, 
8.519E+12,  7.826E+11,  3.416E+09, 
DATA  AM0L43  / 

•  6.149E+11.  6.777E+11,  7.026E+11, 

•  8.910E+11,  9.412E+11,  9.914E+11, 
»  2.63SE+12,  3.263E+12,  3.514E+12, 

•  5. 145E+12,  5.145E+12,  4.894E+12, 

•  3.514E+12,  3.263E+12.  1.757E+12, 

•  5.396E+10,  1.C79E+09,  5.396E+05, 
OATA  AMOL44  / 

•  7.054E+12,  6.390E+12,  5.789E+12, 

•  3.788E+12,  3.403E+1 2 ,  3.046E+12, 

•  1.782E+12,  1.533E+12,  1.316E+12, 
«  7.195E+11,  6. 185E+1 1 «  5.311E+11, 

•  2.897E+11,  2.474E+11,  I.1S7E+11, 

•  7.229E+09,  6.540E+08,  2.898E+06, 
DATA  AMOL45  / 

•  1.889E+I2,  1.712E+12,  1.551E+12, 
«  1 . 015E+12,  9.116E+11.  8.159E+11, 

•  4.775E+11  ,  4.106E+11,  3.526E+11, 
»  1 .927E+11 ,  1.657E+11,  1.422E+11, 

•  7.759E+10,  6.625E+10*  3.098E+10, 

•  1.936E+09,  1.779E+08,  7.763E+05, 
DATA  AM0L46  / 

•  4.031E+13,  3.651E+13.  3.308E+13, 

•  2. 164E+13,  1.945E+13.  1.741E+13, 

•  1.019E+13,  8.759E+12,  7.522E+12, 

•  4.111E+12,  3.S34E+12.  3.035E+12, 

•  1.6S5E+12,  1.413E+12,  6.610E+11, 

•  4.131E+10,  3.794E+09,  1.656E+07, 
DATA  AMOL47  / 

•  5.278E+18,  4.781E+18,  4.331E+18, 

•  2.834E+18,  2.S46E+18,  2.279E+18, 

•  1.334E+18,  1.147E+18,  9.849E+17, 

•  S.383E+17,  4.628E+17 ,  3.973E+17,' 
«  2.167E+17,  1.851E+17.  8.655E+t6, 

•  5.408E+15,  4.968E+14.  2.168E+12, 
DATA  AM0L48  / 

•  1.967E+19,  1 . 782E+19,  1.614E+19, 

•  (.056E+19,  9.491E+18.  8.49SE+18, 

•  4.97IE+18,  4.27SE+18,  3.671E+18, 
»  2.007E+18,  1.725E+18,  1.481E+18, 
«  8. 079E+17 ,  6.898E+17.  3.226E+17, 
»  2.016E+16,  1 ,852£+15»  8.083E+12, 

DATA  AM0L51  / 

•  4.012E+16,  4.012E+16,  3.143E+16, 

•  3.277E+1S,  1.806E+15,  3.678E+14, 

•  8.693E+13.  6.018E+13,  3.344E+13, 
»  1.672E+13,  1.638E+13,  1.505E+13, 

•  2.006E+13,  2.240E+13.  1.204E+13, 
«  2. t06E+11 ,  4,681 E+09.  3.344E+07, 

DATA  AMOL52  / 

•  9.407E+1S,  8.179E+15,  7.254E+15, 

•  4.S61E+15,  4.052E+15,  3.585E+1S, 

•  1.944E+15,  I.662E+15,  1.421E+15, 

•  7.639E+14,  6.539E+14.  S.599E+14, 

•  2.990E+14,  2.554E+14,  1.129E+14, 

•  5.273E+12,  3.908E+11,  3.416E+09, 
DATA  AMQUS3  / 

«  5. 145Ef 1 1 ,  5.145Et11 ,  5.14SE+11. 


6.398E+13, 

o-  / 

3. 103E+13, 

1 .579E+13, 

032430 

032440 

0324S0 

7.279E+11, 

7 . 530E+1 1 , 

8.032E+11, 

032460 

1 . 380E+12, 

t .631E+12, 

2.259E+12, 

032470 

4.016E+12, 

4.267E+12, 

4.894E+12, 

032480 

4.518E+12, 

4.016E+12, 

3.765E+12, 

032490 

1 • 155E+12, 
0.  / 

5.145E+11 . 

1 . 631 E+1 1 . 

032500 

032510 

032520 

5.21SE+12, 

4.E82E+12. 

4.212E+12, 

032530 

2.716E+12, 

2.414E+12, 

2.074E+12, 

032540 

1 .127E+I2, 

9.738E+1 1 , 

B.3S7E+1 1 , 

032550 

4.571 E+1 1 , 

3 . 931 E+1 1 ,  3.381 E+1 1 , 

032560 

5.429E+10, 

o.  / 

2.633E+10, 

1 .340E+10, 

032570 

032580 

032590 

1 .397E+12. 

1 .254E+I2, 

1 . 128E+12, 

032600 

7.276E+11, 

6.465E+1 1 , 

5.555E+1 1 . 

032610 

3.019E+11 , 

2.608E+11 , 

2 . 241 E  +  1 1  , 

032620 

1 .224E+11 , 

1 .053E+11 , 

9.057E+10, 

032630 

1 . 454E+10, 
0.  / 

7 . 052E+09 , 

3 . 590E+09 , 

032640 

032650 

032660 

2.980E+13, 

2.675E+13, 

2.407E+13, 

032670 

1 .552E+13, 

1 .379E+13, 

1 . 18SE+13. 

032680 

6.440E+12, 

5.564E+12, 

4 . 781 E  +  1 2 , 

032690 

2.612E+12, 

2.246E+12, 

1 .932E+12, 

032700 

3.102E+11 , 

o.  / 

1 .504E+11 , 

7.658E+10. 

032710 

032720 

032730 

3.902E+1B, 

3.503E+18, 

3. 151E+18, 

032740 

2.033E+18, 

1 .806E+I8, 

1 .552E+18. 

032750 

8.433E+17, 

7.286E+17, 

6.260E+17. 

032760 

3.420E+17, 

2.941E+I7, 

2. 530E+1 7, 

032770 

4.062E+16, 
0.  / 

1 .970E+16, 

1 .003E+16, 

032760 

032790 

032800 

1 .454E+19, 

1 . 306E+1 9 , 

1  . 175E+19, 

032810 

7.576E+18, 

6.731E+18, 

5.783E+1B. 

032820 

3. 143E+18, 

2.716E+18, 

2.334E+18, 

032830 

1 .275E+18, 

1.096E+1B,  9. 430E+1 7 , 

032840 

1.514EM7, 
0.  / 

7 . 342E+16, 

3.737E+16, 

032850 

032860 

032970 

2.274E+16, 

1 .371E+16, 

6.687E+15, 

032880 

2.809E+14, 

1 .839E+I4, 

1 .271E-14, 

032890 

2.541 E+1 3 , 

2.140E+13, 

1  .872E  +  13, 

O329C0r 

1 .705E+ '3, 

1 .705E+13, 

1 .80GE+13, 

032910 

3.678E+ 12 , 
0.  / 

1 . 438E+12, 

6.353E+11 . 

032920 

032930 

032940 

6.425E+15, 

5. 721 E+1 5, 

5. 117E+15, 

032950 

3.1 14E+15, 

2.662E+15, 

2.275E+15, 

032960 

1 .214E+15, 

1 .041E+15, 

8.520E+14, 

032970 

4.787E+14, 

4.094E+14, 

3 . 500E+14 , 

032980 

5.058E+1 3 , 
0.  / 

2.285E+13, 

1 .077E+13, 

032990 

033000 

033010 

5.396E+11 , 

5. 647E+1 1 , 

5.898E+1 1 , 

033020 

•  6.1496+11 , 

•  5.3966+12. 

•  7.781E+12. 

•  4.5186+12. 
«  5.3966+10, 

DATA  AM0L54 

•  7.9826+12, 

•  3.8706+12. 

•  1.649E+12, 

•  6.4826+11 , 

•  2.5376+11  , 

•  4.4746+09, 
DATA  AM0L55 

•  2.1386+12, 

•  1.0376+12, 

•  4.41 86+1 1 , 
«  1.7366+11, 

•  6.7966+10, 

•  1 . 198E+09 . 
DATA  AM0L56 

«  4.5616+13, 

•  2.2126+13, 
«  9.4256+12, 
»  3.704E+12, 

•  1.4506+12, 

•  2. 557E+10 , 
DATA  AM0L57 

•  5.9726+18, 

•  2.896E+18. 

•  1.234E+18, 

•  4.850E+17, 

•  1 . 898E+17 , 

•  3.348E+15, 
DATA  AM0L58 

•  2.226E+19. 

•  1.079E+19, 

•  4.600E+18, 

•  1.808E+18, 
«  7.076E+17, 
»  1.248E+16, 

DATA  AMO  1.61 

•  1.973E+17, 
«  1.2716+16, 
.  1.237E+14. 

•  1.4716+13, 

•  2.040E+13. 

•  4 .0126+1 1 , 
DATA  AM0L62 

•  8.342E+15. 

•  4.526E+15, 
«  2.141E+15. 

•  8.351E+14, 
+  3.221E+14, 

•  7.0496+12, 
OATA  AM0L63 

•  6.777E+11 , 

•  5.647E+11 , 

•  2.008E+12, 
«  4.C16E+12, 
»  4.5186+12, 


8.910E+1 1 . 
S.898E+12. 
7.530E+12, 
4.016E+12. 
1 .079E+09. 
/ 

6.940E+12, 
3.438E+12. 
1 .4106+12. 
5.549E+1 1 . 
2. 167E+1 1 • 
3.316E+08, 
/ 

1 .859E+12, 
9.210E+1 1 . 
3.778E+1 1 . 
1 .486E+11 . 
5.804E+10. 
8.882E+07, 
/ 

3.966E+13, 
1 .965E+13, 
8. 059E+12. 
3. 171 £+ 12. 
1 . 238E+1 2 . 
1 .8956+09. 
/ 

5.1936+18, 
2.5736+18, 
1 .0556+18, 
4.1526+17. 
1 .6216+17. 
2.4816+14, 
/ 

1 .9366+19. 
9.589E+18, 
3.9336+13. 
1 .547E+18, 
6.0436+17. 
9.2486+14. 
/ 

1 .4046+17, 
7.0226+15. 
6.0186+13. 
1 .4716+13. 
2.2076+13. 
5.0156+09, 
/ 

7.5836+15, 
4.0486+15, 
1.8306+15, 
7.1396+14, 
2.7506+14, 
6.0076+1 1 , 
/ 

6.7776+11 , 
6.1496+11 , 
2.1336+12. 
4.3926+12, 
4.2676+12, 


1.1296+12, 
6.1496+12, 
7.0266+12, 
1 .8826+12, 
5.3966+05, 

6.1556+12, 
3.0426+12, 
1.2066+12, 
4.7516+11 , 
9.580E+10, 
2 . 698E+06 , 

1.649E+12, 
8.1486+11, 
3.2306+11 , 
1.2736+11, 
2.5666+10, 
7.7636+05, 

3.517E+13, 
1 .738E+13, 
6.890E+12, 
2.7156+12, 
5.4746+1 1 , 
1.6566+07. 

4.0656+18, 
2.2766+18, 
9.022E+1 7 , 
3.5556+17, 
7.168E+16, 
2.1686+12, 

1.7176+19, 
8.4846+18, 
3.363E+18, 
1 .3256+18, 
2.6726+17, 
8.0836+12, 

9.6966+16, 
4.0126+15, 
2.8096+13, 
1 .4716+13, 
1 .2716+13, 
3.3446+07, 

6.8786+15, 
3.607E+15 , 
1 . 564E+1 5 , 
6. 103E+14, 
1 .2646+14, 
3.4256+09,, 

6.7776+11 , 
6.5266  +1 1 , 
2.3846+12, 
4.7696+12, 
2.5106+12, 


2.0066+12, 
7.0286+12, 
6.4006+12, 
1.1556+12, 
0.  / 

5.4514+12, 
2.6426+12, 
1 . 0306+12 , 
4.062E+1 1 , 
4.292E+10, 
0.  / 

1 .4606+12, 
7.0786+1 1 , 
2.760E+1 1 , 
1 .088E+1 1 , 
1 . 1506+10 , 
0.  / 

3.1156+13, 
1 .5106+13, 
5.887E+12, 
2.3216+12, 
2.4536+11, 
0-  / 

4.0796+18, 
1 .9776+16, 
7.708E+17, 
3.0396+17, 
3.21 1E+16, 
0.  / 

1 .5206+19, 
7.3696+16. 
2.8736+18, 
1.1336+18, 
1.1976+17, 
0.  / 

6.0186+16, 
1.5386+15, 
2.4076+13, 
1 .6056+13, 
5.3506+12, 
0.  / 

6.2206+15, 
3.2056+15, 
1.3376+15, 
5. 1966+14, 
5.809E+13, 
0.  / 

6.2756+11, 
8.9106+1 1 , 
2.6356+12, 
4.7S96+12, 
1.3806+12. 


3.0126+12, 
7 .7816+12, 
5.8986+12, 
5.1456+11 , 


4.8556+12, 
2.2586+12, 
8.8336+11, 
3.4736+11 , 
1.9396+10, 


1.3006+12, 
6.0496+11, 
2 . 3666+1 1 , 
9.304E+10, 
5. 193E+09, 


2.7746+13, 
1 .2916+13, 
5.047E+12, 
1.9856+12, 
1.1086+11, 


3.6326+18, 
1 .690E+18, 
6.6096+17, 
2.599E+17, 
1 .451E+16, 


1.3546+19, 
6.299E+18, 
2.463E+1B, 
9 . 687E+17, 
5.4076+16, 


3.6786+16, 
6.018E+14, 
2.040E+13, 
1 .739E+13, 
2.2406+12, 


5.61 1E+15, 
2.8395+15, 
1 . 142E+15, 
4.426E+14, 
2.7096+13, 


5.773E+1 1 , 
1 . 1296+12, 
3.012E+12, 
4.3946+12, 
6. 149E+1 1 , 


4.0166+12, 
7.7816+12. 
5.3966+12, 
1 .6316+1 1 , 


4.3426+12, 
1.9316+12, 
7.568E+1 1 , 
2.969E+1 1 , 
9.1416+09, 


1 . 1636+12. 
5.1716+1 1 , 
2.0276+t 1 . 
7.9546+10, 
2.4496+09, 


2.4816+13, 
1 . 1036+13, 
4.3256+12, 
1.6976+12, 
5.2246+10, 


3.2496+18, 
1 . 444E+t  8 , 
5.6636+17, 
2.2226+17, 
6.8406+15, 


1 .2116+19, 
5.3846+18, 
2.1116+18, 
8.2826+17, 
2.5496+16. 


2.1406+16, 
2.7426+14, 
1 .739E+13, 
1 .906E+13, 
1.0706+12, 


5.047E+I5, 

2.5036+15. 

9.769E+14, 

3.7756+14. 

1.3496+13, 


5.7736+1 1 , 
1.6316+12, 
3 . 5*  4E  +  1 2 , 
4.769E+12, 
2. 1336+1 1 , 


033030 

033040 

033050 

033060 

033070 

033080 

033090 

033100 

033110 

033120 

033130 

033140 

033150 

033160 

033170 

033180 

033190 

033200 

033210 

033220 

033230 

033240 

033250 

033260 

033270 

033280 

033290 

033300 

033310 

033320 

033330 

033340 

033350 

033360 

033370 

033380 

033390 

033400 

033410 

033420 

033430 

033440 

033450 

033460 

033470 

033480 

033490 

033500 

033510 

033520 

033530 

033540 

033550 

033550 

033570 

033580 

033590 

033600 

033610 

033620 


»  5. 020E+1O ,  1.079E+09.  5.396E+05. 
DATA  AMQL64  / 

•  7.078E-M2,  6.434E+12,  S.836E+12, 

•  3.84 IE+12,  3.434E+12,  3.061E+12, 

•  t.8.’E+12,  1.S53E+12,  1.327E+12, 

•  7.08’jEM1,  6.057Ef11,  5.178E+11, 

•  2.733E+11,  2.333E+11,  1.072E+11, 

•  S.981E+09,  5.037E+08,  2.906E+06, 
DATA  AM0L65  / 

«  1.896E+12,  1.723E+12.  1.S63E+12, 
«  1 .0292+12.  9.199E+11,  8.199E+11, 

•  4.867EM1,  4.160E+11,  3.S55E+11, 

•  1.898EH1,  1.622E+11,  1.387E+11, 

•  7.321E+10,  6.250E+10,  2.872E+10, 
«  1.602E+09,  1 . 365E+08 ,  7.784E+05, 

DATA  AM0L66  / 

»  4.045E+13,  3.677E+13,  3.335E+13, 

•  2. 1 95E+13 ,  1 . 962E+1 3 ,  1.749E+13, 

•  1.038E+13,  8.874E+12.  7.S84E+12, 

•  4.049E+12,  3.461E+12,  2.959E+12, 
»  1.562E+12,  1.333E+12,  6.126E+11, 

•  3.418E+10,  2.913E+09,  1.660E+07, 
DATA  AMO 16 7  / 

«  5.296E+18,  4.814E+18,  4.366E+18, 

•  2.874E+18,  2.570E+18,  2.290E+18, 

•  1.359E+18,  1 . 1 62E+1 8 .  9.930E+17, 

•  5.301E+17,  4.532E+17,  3.875E+17, 

•  2.045E-M7,  1.746E+17,  8.021E+t6, 

•  4.47SE+1S,  3.814E+14,  2.174E+12, 
DATA  AMO  1.6 8  / 

•  1.9746*19.  1.794E+19,  1.627E+19, 

•  1.071E+19,  9.S78E+18,  8.536E+18, 

•  5.067E+18.  4.331E+18,  3.701E+18, 
«  t .976E+18,  1.689E+18,  1.444E+18, 
»  7.622E+17,  6.508E+17,  2. 9906+17, 

•  1 . 668E+16,  1.422E+15,  8.104E+12, 
END 


0.  / 

5.277E+12,  4.760E+12,  4.282E+12, 
2.720E+12,  2.408E+12,  2.124E+12, 
1.134E+12,  9.6946+11,  8.289E+11, 
4.409E+11,  3.756E+I1,  3.203E+11, 
4 . 929E+1 0,  2.298E+10,  1.145E+10, 
0.  / 

1.414E+12.  1.275E+12,  1.147E+12, 
7.28SE+tl,  6.451E+I1,  S.689E+11, 
3.038E+11,  2.S97E+11  ,  2.220E+11, 
1.1816+11,  1.006E+11,  8.579E+I0, 
1.320E+(0,  6.156E+09,  3.067E+09, 
0.  / 

3.016E+13,  2.720E+13,  2.447E+13, 
1.554E+13,  1.376E+13,  1.214E+13, 
6.4816+12,  S.539E+12,  4.7376+12, 
2.519E+12,  2 . 1 46E+1 2 ,  1.830E+12, 
2.816E+11,  1 . 313E+1 1 ,  6.542E+10, 
0.  / 

3.949E+18,  3.562E+18,  3.204E+18, 
2.035E+18,  1.802E+18,  1.S89E+18, 
8.486E+17,  7.2536+17,  6.202E+17, 
3.299E+17,  2.810E+1? ,  2.396E+17, 
3.6866+16,  1.720E+16,  8.566E+15. 
0.  / 

t.472E+19,  1.32BE+19,  1.194E+19, 
7.5856+18,  6.7176+18,  5.924E+18, 
3. 163E+18,  2.704E+18,  2.3I2E+18, 
1.230E+18,  1.0476+18,  8.9326+17, 
1.3756+17,  6.410E+16,  3.193E+16, 
0.  / 


033630 

033640 

033650 

033660 

033670 

033680 

033690 

033700 

033710 

033720 

033730 

033740 

033750 

033760 

033770 

033780 

033790 

033800 

033810 

033820 

033830 

033840 

033850 

033860 

033870 

033880 

033890 

033900 

033910 

033920 

033930 

033940 

033950 

033960 

C33970 

033980 

033990 


100 
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SUBROUTINE  MLATM(M) 


,,  THIS  SUBROUTINE  LOADS  ONE  OF  THE  6  BUILT  IN  ATMOSPHERIC  PROFILES 
OR  CALLS  NSMDL  TO  READ  IN  A  USER  SUPPLIED  PROFILE. 


C4 


CS 


COMMON  / I F I L/  IRD.IPR.IPU 

COMMON  /PARMTR/  P I , OEG , GCA 1R , RE , DELTAS , ZMIN , ZMAX , IMAX . IMOD , I BMAX , 
1  IOUTMX , I  PATH, IMODMX , IDIM, KDIM, KMXNOM , KMAX , NOPRNT 
DOUBLE  PRECISION  HMOD 

COMMON  HMOD(3) ,ZM(50) , PM(SO) . TM(SO) , RFNDXM(50) ,DENM( 20,50) 

COMMON  ZP(71),PP(71) ,YP(71 ),RFNDXP(71 ) , SP( 71 ) , 

1  PPSUM(71 ) ,TPSUM(71 ) ,RH0PSM(71 ) ,DENP(20,71 ) ,AMTP(20,71 ) 

COMMON  Z(71 ) ,P(71 ) , T( 71 ) ,RFNOX( 71 ) ,DENSTY( 20,71 ) 

DOUBLE  PRECISION  ATMNAM 

COMMON  /MLATMC/  ALT<34) , PM0L(34,6) ,TMDL(34,6) . AM0L(34 ,8,6) , 

1  ATMNAM(3,6) 

I F  ( M .  £0 . 7 )  GO  TO  200 
IF(M.G£.1  .OR.  ltt.LE.6)  IMOD  »  33 
DO  100  I«1 , IMOD 
ZM(I)  *  ALT ( l ) 

PM( I )  •  PMDL(I.M) 

TM(I)  «  TMDL(I.M) 

*  * AMOL ( 1 , 8 ,M )  IS  N2  AND  IS  NO  LONGER  USED 
DO  100  K*1 ,7 


OENM(K.I)  a  AMOL(I.K.M) 
100  CONTINUE 

DO  110  L-1,3 

110  HMOO(L)  >  ATMNAM(L.M) 

GO  TO  210 
200  CONTINUE 
CALL  NSMDL 
210  CONTINUE 

ZMIN  «  ZM( 1 ) 

ZMAX  •  ZM(IMOD) 

RETURN 

END 
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SUBROUTINE  NSMDL 


NOTES  TO  USER: 

THIS  SUBROUTINE  IS  FOR  READING  IN  AN  ATMOSPHERIC  PROFILE 
CORRESPONDING  TO  MOOEL  *  7.  THE  PROFILE  IS  READ  IN  AFTER 
CONTROL  CARD  4  IN  THE  FOLLOWING  FORMAT 
IMOD  (IS) 

THE  NUMBER  OF  LAYER  BOUNDARIES  TO  FOLLOW 
(HEADER(I),I»1.3)  (  3A8) 

A  24  CHARACTER  HEADER  DESCRIBING  THE  PROFILE 
FOR  EACH  OF  THE  IMOD  LEVELS- 

Z,P,T,TD,RH,PPH20,0ENH20.AMSMIX  (8F10.3) 

(VMIX(X) ,K=1 ,KMAX)  (8E<0.3) 

Z  ALTITUDE  (KM 

P  PRESSURE  (MB) 

T  TEMPERATURE  (K) 

TO  DEW  POINT  (DEG  C) 

,  RH  RELATIVE  HUMIDITY  (PER  CENT) 

PPH20  H20  PARTIAL  PRESSURE  IMS) 

0ENH20  H20  MASS  DENSITY  (GM  M-3) 

AMSMIX  H20  MASS  MIXING  RATIO  (GM  KG- t ) 

VMIX  VOLUME  MIXING  RATIO  OF  THE  C'TH 

MOLECULAR  SPECIES,  PARTS  PER  MILLION 

THE  WATER  VAPOR  DENSITY  MAY  BE  SPECIFIED  IN  ANY  OF  6  WAYS- 
IF  VMIX(1)  IS  NOT  SUPPLIED,  THEN  THE  DENSITY  OF  H20,  DENSTY(I), 
IS  COMPUTED 

IN  THE  SUBROUTINE  WATVAP  FROM  THE  GIVEN  VALUE  OF  TO,  RH, 

PPH20,  DENH20,  OR  ASMIX'.  IF  MORE  THAN  ONE  OF  THESE  IS  GIVEN, 
THEN  THE  LAST  ONE  GIVEN  IS  USED.  (NOTE  THAT  TD  •  0  IS 
A  VALID  INPUT  AND  THAT  TO  SHOULD  NOT  BE  CONFUSED  WITH  THE 
WETBULB  TEMPERATURE  OF  A  WET  AND  ORY  BULB  THERMOMETER) 

IF  THE  VOL  MIX  RATIOS  OF  THE  UNIFORMLY  MIXED  GASES  (K=2*CD2, 
4»N20,5«CO,6=CH4,7=02,8»N2|  ARE  NOT  SUPPLIED.  THEY  ARC 
CALCULATED  USING  THE  VALUE  OF  THE  VOLUME  MIXING  RATIO 
VMIXST(K)  TAKEN  FROM  THE  U.S.  STANDARD  ATMOSPHERE,  1978. 

NOTE  THAT  THESE  VALUES  OF  VMIXST  (ESP  FOR  CO)  ARE  DIFFERENT 
FROM  THOSE  USEO  IN  MODELS  1  TO  6,  WHICH  ARE  TAKEN  FROM 
OPTICAL  PROPERTIES  OF  THE  ATMOSPHERE  (THIRD  EDITION). 

IF  Ah'  03;  PROFILE  IS  NOT  SUPPLIED,  IT  IS  SET  EQUAL  TO  ZERO. 


COMMON  / 1 F I L/  IRD , I  PR , I PU 

COMMON  /PARMTR/  P I ,DEG ,GCA !R , RE , DELTAS , ZMIN. ZMAX . IMAX , IMOD . IBMAX, 
1  IOUTMX . I  PATH , IMODMX , I  DIM, KDIM, KMXNOM, KMAX , NOPRNT 

COMMON  /CONSTN/  PZERO, TZERO, AVOGAO , ALOSMT , GASCON, PLANK, BOLTZ, 

1  CLIGHT,ADCON,ALZERO,AVMWT,AIRMWT,AMWT(20),VMIXST(20),VMIXN2 

C4  DOUBLE  PRECISION  HMOD 

COMMON  HM0D(3) , ZM(50) , PM(50) ,TM(50) ,RFNDXM(50) ,DENM(20,50) 

COMMON  ZP(71) ,PP(71 ) ,TP(71 ),RFNDXP(71 ) ,SP(71 ), 

1  PPSUM(71) ,TPSUM(71 ) ,RH0PSM(71 ) , DENP( 20 , 71 ) , AMTP(20,71 ) 

COMMON  2(71) ,P(71 ),T(71),RFNDX(71 ) , OENSTY ( 20 , 7  I ) 

C4  DOUBLE  PRECISION  HMOLS 

COMMON  /HMOLS/  HM0LS(29) 

DIMENSION  VMIX(20) 

C4  DOUBLE  PRECISION  HOI ,HD2 

DIMENSION  HD1(9),HD2{9) 

DATA  HD1/  8H  1 ,  8H  Z  ,  8H  P  ,  8H  T 


034360 
>  034370 

034380 
034390 
034400 
034410 
034420 
034430 
034440 
034450 
034460 
034470 
034480 
034490 
034500 
034510 
034520 
034530 
034540 
034550 
034560 
034570 
034580 
034590 
034600 
034610 
034620 
034630 
034640 
034650 
034660 
034670 
C34680 
034690 
034700 
034710 
034720 
034730 
034740 
034750 
034760 
034770 
034780 
034790 
034800 
034810 
034820 
034830 
034R40 
CB034850 
C343G0 
034870 
034880 
034890 
CS034900 
034910 
034920 
CS034930 
034940 
,  034950 


0 

m 

•'BJ 


/ 


8H 


RH 


8H  PPH20 


8H  DENH20 


.  8H 

8H<PERCNT) 


(KM)  . 
,  8H 


$H  (MB)  ,  8H  (K) 
(MB)  .  8H(CM  M-3)  . 


1  8H  TD 

2  8H  AMSMIX 

DATA  HD2/  8H 

t  8H  ,(C) 

2  8H(GM/KG) 

WRITE(IPR,20) 

20  F0RMAT(///,>  READING  IN  USER  SUPPLIED  MODEL  ATMOSPHERE’) 

READ( IRD.21 )  IMOD 

21  FORMAT 115) 

READ( IRQ, 22)  HMOD 

22  F0RMAT(3AB) 

WRITE! IPR, 24)  IMOD,  HMOD 

24  FORMAT!//, 10X, ’ IMOD  »  ’, IS,/, 10X, ’PROFILE  ■  1 ,3A8) 

IF( IMOD.GT . 1MODMX)  GO  TO  900 
WRITE! IPR, 26)  HD1.HD2 
26  F0RMAT(/,(3X,9(1X,A8,1X))) 

WRITE! IPR; 28)  HMOLS 

28  FORMAT(/, ’  VOL  MIX  RAT’  ,8(1X,A8,1X) ,/, <  (PPMV)’, 

1  (T14.8A10)) 

DO  110  IM* 1 , IMOD 

READ!  IRD.30)  ZM(  IM) ,  PM(  IM)  ,TM(  IM).,  TO, RH,  PPH20,  DENH20,  AMSMIX 
30  FORMAT(8F10.3) 

WRITE! IPR, 32)  IM.ZM(lM) ,PM(IM) ,TM(IM), TO, RH.PPH20.0ENH20, AMSMIX 
32  FORMAT!/, Ill, 8FI0. 3) 

REAO( IRD.34)  (VM1X(K) ,K«1 ,KMAX) 

34  F0RMAT(8E10.3) 

WRITE! IPR, 36)  (VMIX(K),K>1 , KMAX) 

36  FORMAT!/, 11X.1P8E10. 3) 

RHOAIR  «  ALOSMT*(PM(IM)/PZERO)»(T2ERO/TM(IM)) 

DENM(I.IM)  >0.0 

IF(VMIX(1).GT.0.0)  0ENM(1,1M)  >  VMIX( 1 )«RH0AIR»1 .OE-6 
IF(VMIX(1 ) .EO.0.0)  CALL  WATVAP(PM( IM) ,TM( IM) ,TD,RH,PPH20, 

1  DENH20, AMSMIX, DENM(t.IM)) 


VMIX(K)«RH0AIR*1 .OE-6 
VMIXST(K)>RHOAIR»t .OE-6 


DO  100  K>2,KMAX 
DENM(K, IM)  >  0.0 
IF(VMIX(K).GT.0.0)  OENM(K.IM) 

IF(VMIX(K) .Eg. 0.0)  OENM(K.IM) 

100  CONTINUE 
110  CONTINUE 
RETURN 
900  CONTINUE 

WRITE! IPR, 902)  IMOD, IMOOMX 

902  FORMAT!/, ‘  NUMBER  OF  PROFILE  LEVELS  IMOD  »  ’,15,’  EXCEEDS  THE 
1  ’MAXIMUM  ALLOWED  •  ’,15) 

END 
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SUBROUTINE  WATVAP ( P , T , TO , RH, PPK20 , 0ENH20 , AMSMtX , OENNUM) 


THIS  SUBROUTINE  COMPUTES  THE  WATERVAPOR  NUMBER  DENSITY  (MOL  CM-3) 
GIVEN  :  TO  »  DEW  POINT  TEMPERATURE  (OEG  C).  RH  »  RELATIVE  HUMIDITY 
(PERCENT),  PPH20  *  WATER  VAPOR  PARTIAL  PRESSURE  (MB),  DENH20  » 
WATER  VAPOR  MASS  DENSITY  (GM  M-3),AMSMIX  •  MASS  MIXING  RATIO 
(GM/KG). 

IF  MORE  THAN  ONE  OF  THESE  QUANTITIES  IS  GIVEN.  THE  LAST  ONE 
GIVEN  IS  USEO.  THE  FUNCTION  DENSAT  FOR  THE  SATURATION 
WATER  VAPOR  DENSITY  OVER  WATER  IS  ACCURATE  TO  BETTER  THAN  1 
PERCENT  FROM  -50  TO  +50  DEG  C.  (SEE  THE  L0WTRAN3  OR  5  REPORT) 


COMMON  / I F I L/  IRO.IPR.IPU 

COMMON  /PARMTR/  P I , DEG , GCA I R , RE , DELTAS , ZMIN , ZMAX , IMAX , IMOD , I BMAX , 
t  IOUTMX , I PATH , IMODMX , IOIM , KOIM , KMXNOM , KMAX , NOPRNT 
COMMON  /CONSTN/  PZERO. TZERO, AVOGAO, ALOSMT .GASCON, PLANK, B0LT2, 

1  C LIGHT , ADCON , ALZERO. AVMWT , A1RMWT , AMWT (20),VMIXST(20), VMIXN2 
DATA  Cl /18 . 9766/ .C2/-1 4 . 9595/ , C3/-2 . 4388/ 

OENSAT(ATEMP)  «  ATEMP*B»EXP(C1+C2*ATEMP+C3.ATEMP*.2)«1 .OE-6 

C+..+. 

RHOA1R  »  ALOSMT»(P/PZ£RO)*(TZERO/T) 

A  *  TZERO/T 
8  *  AVOGAD/AMWT ( 1 ) 

IF(AMSMIX.LE.O.O)  GO  TO  110 
GIVEN  MASS  MIXING  RATIO  (GM  KG-1) 

OENNUM  «  B*AMSMIX*1.0E-3«RH0AIR 
GO  TO  200 

no  continue 

IF( DENH20. LE.0. 0)  GO  TO  120 
C...*. GIVEN  MASS  DENSITY  (GM  M-3) 

OENNUM  «  S+0ENH20+1 .OE-6 
GO  TO  200 
120  CONTINUE 

I F ( PPH20. LE .0.0)  GO  TO  130 
C++. ..GIVEN  WATER  VAPOR  PARTIAL  PRESSURE  (MB) 

OENNUM  =  ALOSMT- (PPH20/PZER0)* (TZERO/T) 

GO  TO  200 
130  CONTINUE 

IF(RH.LE.O.O)  GO  TO  1 40 
C.....GIVEN  RELATIVE  HUMIDITY  (PERCENT) 

OENNUM  *  D£NSAT(A)*(RH/100.0)/(1 ,0-( 1 . O-RH/1 00 . 0) *DENSAT( A ) / 

I  RHOAIR) 

GO  TO  200 
140  CONTINUE 

C... ..GIVEN  DEWPOINT  (DEG  C) 

ATO  =■  TZERO/(TZERO+TD) 

OENNUM  *  DENSAT(ATD) * ( TZERO+TD)/T 
200  CONTINUE 

DENST  .  DENSAT ( A ) 

RHP  =  190.0«(0ENNUM/DEN3T)-((RH0AIR-0ENST)/(RH0AIR-DENNUM) ) 

WRITE( 1PR, 12 )  RHP 
12  FORMAT ( 1 +' ,95X , ' RH  *  • . F 1 0 . 2 ) 

!F(RHP.LE. 100.0)  GO  TO  230 
WRITE(IPR.IO)  RHP 

10  FORMAT(/,‘  ........WARNING  ( FROM  WATVAP) :  RELATIVE  HUMIDITY  •  \ 

1  G10.3, '  IS  GREATER  THAN  100  PERCENT') 

230  CONTINUE 
RETURN 
END 
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SUBROUTINE  GE0INP(H1 ,H2, ANGLE, RANGE, BETA, ITYPE. LEN, HMIN, PHI ,  036000 

1  IERR0R)  036010 

036020 

geoinp  interprets  the  allowable  combinations  of  input  path  036030 

PARAMETERS  INTO  THE  STANDARD  SET  HI ,H2, ANGLE. PHI ,HMIN,  AND  LEN.  036040 
THE  ALLOWABLE  COMBINATIONS  OF  INPUT  PARAMETERS  ARE-  FOR  ITYPE  *  2,  036050 

(SLANT  PATH  HI  TO  H2)  A.  HI,  H2,  AND  ANGLE,  B.  HI,  ANGLE,  AND  036060 

RANGE,  C.  HI,  H2 ,  AND  RANGE,  D.  HI,  H2.  AND  BETA  -  036070 

FOR  ITYPE  «  3  (SLANT  PATH  HI  TO  SPACE,  H2  «  ZMAX(«100  KM,M«1  TO  6)  036080 
A.  HI  AND  ANGLE.  B.  HI  AND  HMIN  (INPUT  AS  H2).  036090 

THE  SUBROUTINE  ALSO  DETECTS  BAD  INPUT  (IMPOSSIBLE  GEOMETRY)  AND  036100 
ITYPE  «  2  CASES  WHICH  INTERSECT  THE  EARTH,  AND  RETURNS  THESE  036110 

CASES  WITH  ERROR  FLAGS.  036120 

THE  SUBROUTINE  FNDHMN  IS  CALLED  TO  CALCULATE  HMIN,  THE  MINIMUM  036130 

HEIGHT  ALONG  THE  PATH,  AND  PHI,  THE  ZENITH  ANGLE  AT  H2,  USING  THE  036140 
ATMOSPHERIC  PROFILE  STORED  IN  /MOATA/  036150 

036160 

COMMON  /IF1L/  IRD.IPR.IPU  036170 

COMMON  /PARMTR/  P I , DEG , GCA IR , RE , DELTAS , ZMIN , ZMAX , IMAX , IMOD , I SMAX ,  0361B0 

1  I0UTMX,1PATH,IM0DMX,ID1M,KDIM.KMXN0M,KMAX,N0PRNT  036190 

ITER  »  0  ,  036200 

I F (  ITYPE. NE. 3)  GO  TO  120  036210 

••••SLANT  PATH  TO  SPACE  036220 

•••♦NOTE:  IF  BOTH  HMIN  AND  ANGLE  ARE  ZERO,  THEN  ANGLE  IS  036230 

C»....ASSUMEO  SPECIFIED  036240 

IF(H2.N£.0.0)  GO  TO  110  036250 

C»**«»CASE  3A:  HI .SPACE, ANGLE  036260 

WRITE(IPR.IO)  036270 

10  FORMAT (//, 1  CASE  3A:  GIVEN  HI  ,H2*SPACE, ANGLE' )  036280 

H2  »  ZMAX  036290 

CALL  FNDHMN(H1, ANGLE, H2, LEN, ITER, HMIN, PHI, 1ERR0R)  036300 

GO  TO  200  036310 

110  CONTINUE  036320 

C»*.*»CASE  3B:  HI .HMIN, SPACE  036330 

WRITE( I PR, 12)  036340 

12  FORMAT)//, ■  CASE  3B:  GIVEN  HI,  HMIN,  H2.SPACE')  036350 

HMIN  *  H2  036350 

H2  *  ZMAX  ,  036370 

1F(H1 .LT.HMIN)  GO  TO  9001  036380 

CALL  FNDHMN(HMIN, 90.0, HI, LEN. ITER, HMIN, ANGLE. IERROR)  03639C 

CALL  FNDHMN(HMIN, 90. 0.H2, LEN, ITER, HMIN, PHI, IERROR)  036400 

IF(HMIN.LT.HI)  LEN  *  1  036410 

GO  TO  200  036420 

120  CONTINUE  036430 

IF(ITYPE.NE.2)  GO  TO  9002  036440 

IF(RANGE.NE.O.O.OR.BETA.NE.O.O)  GO  TO  130  036450 

C*«« *«CASE  2A:  HI,  H2.  ANGLE  036460 

WRI TE( IPR, 16)  036470 

16  FORMAT)//,  '  CASE  2A:  GIVEN  HI,  H2,  ANGLE')  036480 

IF(H1 .GE.H2. AND. ANGLE. LE. 90.0)  GO  TO  9004  03S490 

I F ( H 1 . EO .0.0  .ANO.  ANGLE. GT. 90.0)  GO  TO  9007  03650C 

IF(H2.LT.H1  .AND.  ANuLE.GT  .90.0)  WRITE(  I  PR .  15)  LEN  036510 

15  FORMAT)//, '  EITHER  A  SHORT  PATH  (LEN=0)  OR  A  LONG  PATH  ',  036520 

1  'THROUGH  A  TANGENT  HEIGHT  (LEN«1)  IS  POSSIBLE:  LEN  •  ',  036530 

2  13)  036540 

H2ST  H2  036550 

CALL  FNDHMN(H1 , ANGLE,  H2,  l.EN, ITER,  HM  IN,  PH  I, I  ERROR)  036560 

IF(H2.NE.H2ST)  GO  TO  9007  036570 

GO  TO  200  036580 

130  CONTINUE  036590 


105 


oo  n  n  no  o  o  no  oo 


IF( BETA.NE . 0. 0 )  GO  TO  150 
IF(ANGLE.EQ.O.O)  GO  TO  140 
►•♦••CASE  2B1  HI,  ANGLE,  RANGE 
►••••ASSUME  NO  REFRACTION 
WRITE! IPR, 18) 

18  FORMAT!//, '  CASE  2B: .  GIVEN  HI,  ANGLE,  RANGE1,// 

1  lOX.'NOTE:  H2  IS  COMPUTED  FROM  HI,  ANGLE.  AND  RANGE  \ 

2  'ASSUMING  NO  REFRACTION') 

R1  «  RE+H1 

R2  •  S0RT(R1 **2+RANGE** 2+2. 0*R1*RANGE*C05(+ ANGLE/DEG) ) 

H2  =  R2"RE 

IF(H2.GE.0.0)  GO  TO  13S 
H2  >  0.0 
R2  «  RE»H2 

RANGE  •  -R1*C0S(ANGLE/0EG)-SQRT(R2*»2-R1».2*(SIN{ANGLE/0EG))»*2) 
WRITE( IPR, 17)  RANGE 

17  FORMAT!//, 10X, 'CALCULATED  H2  IS  LESS  THAN  ZERO:',/, 

1  10X, 'RESET  H2  «  0.0  AND  RANGE  •  \F10.3) 

135  CONTINUE 

.••♦♦NOTE:  GEOMETRIC  PHI  IS  NEEDED  TO  DETERMINE  LEN(0  OR  1 ) . 

♦•♦♦♦PHI  IS  THEN  RECOMPUTED  IN  FNDHMN 

PHI  -  180.0-ACOS((R2«*2*RANGE»»2-Rt**2)/(2.0»R2»RANGE))«DEG 
LEN  «  0 

IFIANGLE.GT. 90.0. AND. PHI. GT. 90.0)  LEN  »  1 

CALL  FNDHMN ( HI , ANGLE , H2 , LEN , I TER ,HMIN , PHI , I ERROR ) 

GO  TO  200 
140  CONTINUE 

•••••CASE  2C:  HI ,  H2,  RANGE 
WRITE! IPR, 19) 

19  FORMAT!//,'  CASE  2C:  GIVEN  HI ,  H2.  RANGE',//, 

1  10X, 'NOTE:  ANGLE  IS  COMPUTED  FROM  HI,  H2,  AND  RANGE 

2  'ASSUMING  NO  REFRACTION') 

IF(ABS(H1-H2).GT. RANGE)  GO  TO  9003 
R1  «  HI+RE 

R2  >  H2+RE 

ANGLE  •  180 .0-ACOS! 1 R 1 •♦2+RANG£**2*R2**2)/(2.0*R1 •RANGE)  )  *DEG 
PHI  *  1 80 . 0-ACOS ( ( R2* *2 f RANGE *  *2-R1  •  *2 )  /  ! 2 . 0 »R2»RANGE ) ) *DEG 
LEN  *  0. 

IF(ANGLE.GT.90.0.ANO.PHI.GT.90.0)  LEN  =  1 

CALL  FNDHI,1N(H1,  ANGLE, H2.  LEN,  ITER, HMIN,  PHI,  IERR0R) 

GO  TO  200 

•♦••♦CASE  2D:  HI,  H2,  8ETA 
150  CONTINUE 

CALL  FDBETAJHI ,H2 . BETA .ANGLE , PHI , LEN, HMIN , IERR0R) 

CO  TO  200 

•••••END  OF  ALLOWED' CASES 

♦  •♦•• 

200  CONTINUE 

•••••TEST  I  ERROR  AND  RECHECK  LEN 
IF! IERROR.NE.O)  RETURN 
LEN  *  0 

lFIHMIN.LT. AMlNt(Ht,H2))  LEN  *  1 
•••••REDUCE  PATH  ENDPOINTS  ABOVE  ZMAX  TO  ZMAX 
IF(HMIN.CE.ZMAX)  GO  TO  9003 

IF(H1  .GT.ZMAX  .OR.  H2.GT.ZMAX)  CALL  RbDL'CElHI  ,H2,ANGLE,PHj ,  ITER) 
.♦.♦•AT  THIS  POINT  THE  FOLLOWING  PARAMETERS  ARE  OEFINED- 
-••••  HI, H2, ANGLE. PHI, HMIN, LEN 

WRITE! IPR, 20)  HI .H2, ANGLE, PHI , HMIN, LEN 

20  FORMAT!///.'  SLANT  PATH  PARAMETERS  IN  STANDARD  FORM',//, 

I  lOX.'HI  •  \F10.3,'  KM'  ,/,10X,'H2  «  '.F10.3,'  KM',/, 


036600 
036610 
036620 
036630 
036640 
036650 
036660 
036670 
036680 
036690 
036700 
036710 
036720 
036730 
036740 
036750 
036760 
036770 
036780 
036790 
036800 
036810 
036820 
036830 
036840 
036650 
036B60 
036870 
036880 
036890 
036900 
036910 
036920 
036930 
036940 
036950 
036960 
036970 
0369B0 
036990 
037000 
037010 
C37020 
037030 
037040 
037050 
037060 
C37070 
037080 
037090 
037100 
0371 1C 
037120 
037130 
C37149 
037150 
037160 
037170 
037180 
037190 


2  10X, ‘ANGIE  «  ‘.F10.3,1  DEG1 ,/, IOX, ‘PHI  »  ',F10.3,'  DEG' , /, 

<3  IOX, 'HMIN  «  1  , F10.3, 1  KM‘  ,/ ,  tOX,  •  IEN  .  ',110) 

RETURN 

C».«*. ERROR  MESAGES 

9001  CONTINUE 
URITE(IPR,40)  H1.HM1N 

40  FORMAT ('OGEOINP:  CASE  3B  (HI ,HMIN. SPACE) :  ERROR  IN  INPUT  DATA* , 

1  // • IOX, 'HI  «  1 , F12.6, 1  IS  LESS  THAN  HMIN  *  ',F12.e) 

GO  TO  9900 

9002  WRITE! IPR, 42)  ITYPE, ITYPE 

42  FORMAT ('OGEOINP:  ERROR  IN  INPUT  DATA,  ITYPE  NOT  EQUAL  TO  '. 

1  '  2,  OR  3.  ITYPE  «  MlO.E23.14) 

GO  TO  9900 

9003  WRITE( IPR, 43)  HI ,H2, RANGE 

43  FORMAT ( 'OGEOINP:  CASE  2C  (HI ,H2, RANGE) :  ERROR  IN  INPUT  DATA'.//, 
110X, 'ABS(H1-H2)  GT  RANGE;  HI  *  '.F12.6,'  H2  *  '.F12.6, 

2  '  RANGE  «  ' .F12.6) 

GO  TO  9900 

9004  CONTINUE 

WRITE! IPR, 44)  HI. H2. ANGLE 

44  FORMAT( 'OGEOINP:  CASE  2A  <H1 ,H2. ANGLE) :  ERROR  IN  INPUT  DATA', 

1  //, 1 0X, 'HI  *  ' , F12.6, '  IS  GREATER  THAN  OR  EQUAL  TO  H2  »  ', 

2  FI 2. 6,/, IOX,  'AND  ANGLE  «  \F12.6,'  IS  LESS  THAN  OR  ', 

3  'EQUAL  TO  90.0') 

GO  TO  9900 

9007  WRITE( IPR, 48) 

48  FORMAT( 'OGEOINP:  ITYPE  »  2:  SLANT  PATH  INTERSECTS  THE  EARTH'. 

1  1  AND  CANNOT  REACH  H2‘) 

GO  TO  9900 

9008  WRITE(IPR.SO)  ZMAX, HI .H2.HMIN 

50  FORMAT ( '  GEOINP:  THE  ENTIRE  PATH  LIES  ABOVE  THE  TOP  ZMAX  ', 

1  'OF  THE  ATMOSPHERIC  PROFI LE' ,//, IOX, • ZMAX  »  '.G12.6.5X, 

2  '  HI  «  '  ,G12.6,5X, '  H2  «  '.GI2.6,'  HMIN  •  \G12.6) 

9900  IERROR  •  1 

RETURN 

END 


037200 

037210 

037220 

037230 

037240 

037250 

037260 

037270 

037280 

037290 

037300 

037310 

037320 

037330 

037340 

037350 

037360 

037370 

037380 

037390 

037400 

037410 

037420 

037430 

037440 

037450 

037460 

037470 

037480 

037490 

037500 

037510 

037520 

037530 

037540 

037550 

037560 

037570 


SUBROUTINE  REDUCE(H1 ,H2. ANGLE, PHI , ITER)  037580 

. . . . .  037590 

C  ZMAX  IS  THE  HIGHEST  LEVEL  IN  THE  ATMOSPHERIC  PROFILE  STORED  IN  037600 

C  COMMON  /MOATA/.  IF  HI  AND/OR  H2  ARE  GREATER  THAN  ZMAX,  THIS  037610 

C  SUBROUTINE  REOUCES  THEM  TO  ZMAX  AND  RESETS  ANGLE  AND/OR  PHI  037620 

C  AS  NECESSARY.  THIS  REDUCTION  IS  NECESSARY , FOR  EXAMPLE  FOR  037630 

C  SATELLITE  ALTITUDES.  BECA,  3E  (1)  THE  DENSITY  PROFILES  ARE  0376A0 

C  POORLY  DEFINED  ABOVE  ZMAX  AND  (2)  THF  CALCULATION  TIME  FOR  037650 

C  PATHS  ABOVE  ZMAX  CAN  BE  EXCES'-IVE  (  EG.  FOR  GEOSYNCRONOUS  037660 

C  ALTITUDES)  037670 

C... ............  037680 

COMMON  /IFIL/  IRO.IPR.IPU  037690 

COMMON  /PARMTR/  P! .OEG.GCAIR .RF .DEL ' AS .ZMIN.ZMAX, IMAX, IMOD. IBMAX,  037700 

1  IOUTMX , IPATH , IMODMX , I01M, KDIy, YMXNGM.KMAX, NOPRNT  037710 

IF(H1 . LE.ZMAX  .AND.  H2.Lc.2MAX)  SciJUI  037720 

CALL  FIN0SH(H1 ,SH, GAMMA;  037730 

CPATH  «  ANDEX(H1  ,SH, GAMMA). (r  .+HI  )«SINiANC  c/i  ■.  .)  037740 

CALL  F I NOSH ( ZMAX , SK.GmMMA)  037750 

CZMAX  ■  .'ND£X(ZMAX,SH.GAMf,IA)*"!fc..L-  ■)  037760 

angmax  •  ipo  o-asin(cpath/czmax; 037770 
IF(H1 . LE.ZMA ■/  30  TO  120  037780 

HI  »  ZM/X  037790 

ANGLE  «  ANGMAX  037800 

120  CC..TINUE  037810 

IF(H2.LE. ’MAX)  GOTO  130  037820 

H2  •  ZMA“  037830 

PHI  «  A.'oV..''  ■  037840 

13C  CONTINUE  037850 

IF(1TE1. WRITE(IPR,20)  ZMAX, ANGMAX  037B60 

20  FORM *. i' ( /// ,  FROM  SUBROUTINE  REDUCE  :  ',/,  037870 

1  lOX.'OI  •  OR  BOTH  CP  HI  A.'O  H2  ARE  ABOVE  THE  TO  OF  THE  ',  037880 

2  'A. MO! .MERIC  PROFILE  J' AK  .  ',110.3,'  AND  H»VE  BEEN  RESET  ',  037B90 

3  'TO  V.IAX.'./.'  JX.'ANG'  .  AKD/O”  PHI  HAVE  AlSU  BEEN  RESET  TO  ',  03-»900 

4  ’!**•  ZEN'vTH  ANGLE  AT  7V.'  «  • ,  F  ‘  7  3.'  DF  .- '  )  037910 

200  CONT  NL.  037920 

RETUR, '  037930 

ENO  037940 


ooooo 


SUBROUTINE  FDBETA(H1 , H2 . BETA, ANGLE, PH I . LEN , HMIN , X ERROR) 


GIVEN  H1,H2,AN0  BETA  (THE  EARTH  CENTERED  ANGLE)  THIS  SUBROUTINE 
CALCULATES  THE  INITIAL  ZENITH  ANGLE  AT  HI  THROUGH  AN  ITERATIVE 
PROCEEDURE 


COMMON  / IF  11/  IRO.IPR.IPU 

COMMON  /PARMTR/  PI .DEG.GCAIR , RE, DELTAS . ZMIN.ZMAX , IMAX, IMOO, I8MAX, 
t  IOUTMX, IPATH, IMODMX. IOIM, KDIM, KMXNOM , KMAX , NOPRNT 

CB  DOUBLE  PRECISION  HMOO 

COMMON  HMOD(3) ,ZM(50) ,PM(SO) ,TM(50) ,RFNDXM(50) ,DENM(20,50) 

COMMON  ZP(71),PP(71),TP(71),RFNDXP(71),SP(71 ), 

1  PPSUM(7I ),TPSUM(7O,RH0PSM(71) ,OENP(20,7l ) ,AMTP(20,71) 

COMMON  Z ( 7 1 ) , P ( 7 1 ) , T ( 7 1 ) , RFN0X(71 ) .OENSTY ( 20 , 71 ) 

DATA  T0LRNC/1.0E-4/,ITERMX/i0/ 

IFLAG  ■  0 

IF(H1.GT.H2)  GO  TO  100 
IOROER  •  1 
HA  *  HI 
HB  >  H2 
GO  TO  120 
100  CONTINUE 
IOROER  «  -1 
HA  *  H2 
HB  •  HI 
120  CONTINUE 

C.....LOAD  ATMOSPHERIC  PROFILE  INTO  /MODEL/ 

IMAX  •  IMOO 
DO  130  IM*1,IM0D 
Z(IM)  «  ZM(IM) 

P(IM)«PM(IM) 

T(IM)  .  TM(IM) 

RFNDX(IM)  >  RFNDXM(IM) 

130  CONTINUE 

C«*«**SET  PARAMETER  TO  SUPRESS  CALCULATION  OF  AMOUNTS 
IAMTB  •  2 

GUESS  AT  ANGLE,  INTEGRATE  TO  FIND  BETA,  TEST  FOR 
c... ..CONVERGENCE,  AND  ITERATE 

c»... .FIRST  GUESS  AT  ANGLE:  USE  THE  GEOMETRIC  $OLUTION(NO  REFRACTION) 
ITER  =  1 
RA  »  RE+HA 
RB  «  RE+HB 

SG  *  SQRT(RA**2+RS»»2-2.0*flA»R8»C0S(8ETA/DEG)) 

ANGLE1  »  180. 0-ACQS( ( RA**2+SG**2-RB* •2)/(2.0*RA*SG))»DEG 
HMIN  *  HA 

IF(ANGLE1 .GT.93.0)  HMIN  .  RA*SIN( ANGLE1 /DEG)~RE 
IF(HMIN.GE.O.O)  GO  TO  310 
I  FI  AG  »  1 
HMIN  »  0.0 

CALL  FNDHMN( HM IN . 90 . 0 . HA , LEN , I  TER , HMIN , ANGLE  1 , I ERROR ) 

310  CONTINUE 

WRITE( IPS, 24) 

24  FORMAT (///, 1  CASE  2D:  GIVEN  HI,  H2 ,  BETA:’,//, 

1  ’  ITERATE  AROUND  ANG..E  UNTIL  BETA  CONVERGES',//, 

2  '  ITER  ANGLE' ,T2I , 'BETA' ,T30, 'OBETA* ,T40, 'RANGE' , 

3  TS1 , 'HMIN' ,T61 ,' PHI ', T70 ,' BENDING' ,/, 

4  T10, '(DEG) ' ,T21 , ' (DEG)' ,T30, ' (DEG) ' ,T41 , '(KM) • , 

5  T51 , ‘(KM) 1 ,T60, 1 ( OEG) ■ ,T71 , ' (OEG) • ,/) 

LEN  *  0 

IF(ANGLE1 .GT.90.0)  LEN  .  1 


037950 

037960 

037970 

037980 

037990 

038000 

033010 

03B020 

038030 

CB038040 

038050 

038060 

038070 

038080 

038090 

038100 

038110 

03B120 

038130 

038140 

038150 

038160 

038170 

038180 

038190 

038200 

038210 

038220 

038230 

033240 

038250 

038260 

038270 

038280 

038290 

038300 

038310 

038320 

038330 

038340 

038350 

038360 

038370 

038380 

038390 

038400 

038410 

038420 

038430 

038440 

038450 

038460 

038470 

038480 

038490 

038500 

038510 

038520 

038530 

038540 
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CALL  FNDHMN (HA, ANGLE 1  ,HB, LEN, I TER, HMIN, PHI , I ERROR)  038550 

LEN  •  0  038560 

IF(HMIN.LT.HA)  LEN  *  1  038570 

CALL  RFPATH(HA,HB, ANGLE1 , PHI , LEN, HMIN, 1AMTB, RANGE, 8ETA1 , BENDNG)  038580 

OBETA  •  BETA-BETA1  038590 

WRITE(1PR,26)  1TER.ANGLE1 ,BETA1 .OBETA, RANGE, HMIN, PHI , BENDNG  038600 

26  FORMAT(I5,3F10.4,2F10.3,2F10.4)  038610 

IF( IFLAG.EQ. t  .AND.  BETA1.LT.8ETA)  GO  TO  9005  038620 

ITER  «  2  038630 

OANG  •  (BETA/25. 0)**2  038640 

IF( DANG. LT . 0 . 001 )  DANG  •  0.001  038650 

ANGLE2  >  ANGLE1 -DANG  038660 

(F(ANGLE2. LT.O.O)  ANGLE2  >  0.0  038670 

LEN  «  0  038660 

XF( ANGLE2.GT .90.0)  LEN  •  1  038690 

CALL  FN0HMN(HA, ANGLE2.HB, LEN, ! TER . HMIN, PH! , I ERROR)  038700 

LEN  «  0  038710 

IF(HMIN.LT.HA)  LEN  *  1  038720 

CALL  RFPATH(HA, HB.ANGLE2, PHI. LEN. HMIN, IAMTB, RANGE, BETA2, BENDNG)  038730 

OBETA  «  BETA-BETA2  038740 

WRITE(1PR,26)  ITER, ANGLE2,BETA2,DBETA, RANGE. HMIN, PHI, BENDNG  038750 

IF( ABS(DBETA) . L£ .TOLRNC)  GO  TO  340  038760 

320  CONTINUE  038770 

ITER  «  ITER+1  038780 

ANGLE3  •  ANGLE2+( ANGLE2-ANGLE1 )*(BETA-BETA2)/( BETA2-BETA1 )  038790 

LEN  «  0  038800 

IF( ANGLE3.GT .90.0)  LEN  ■  1  038810 

CALL  FNDHMN(HA,ANGLE3.HB, LEN, ITER, HMIN, PHI, IERROR)  038820 

LEN  •  0  038830 

IF(HMIN.LT.HA)  LEN  •  1  038840 

CALL  RFPATH(HA,HB, ANGLES, PHI , LEN, HMIN, IAMTB, RANGE, BET A3, BENDNG)  038850 

OBETA  *  BETA-BETA3  038860 

WRITE(IPR,26)  ITER, ANGLES, BETAS, OBETA, RANGE, HMIN, PHI, BENDNG  038870 

I F( BETAS. LT. BETA. AND. HMIN. LT.O.O)  GO  TO  9005  038880 

ANGLE1  »  ANGLE2  038890 

ANGLE2  •  ANGLE3  038900 

8ETA1  >  8ETA2  038910 

BETA2  *  BETA3  038920 

IF(ABS(BETA-BETA3).LT .TOLRNC )  GO  TO  340  038930 

IF( ITER.GT . ITERMX)  GO  TO  9006  038940 

GO  TO  320  038950 

340  CONTINUE  038960 

IF(HM1N. LT.O.O)  GO  TO  9005  038970 

C»**«»CONVERGEO  TO  A  SOLUTION  038980 

ANGLE  *  ANGLE3  038990 

BETA  *  BET A3  039000 

ASSIGN  ANGLE  AND  PHI  TO  PROPER  HI  AND  H2  039010 

IF( IORDER  E0.1)  GO  TO  350  039020 

TEMP  «  PHI  039030 

PHI  *  ANGLE  039040 

ANGLE  *  TEMP  039050 

350  CONTINUE  039060 

RETURN  039070 

C***»*  039080 

C**..*ERROR  MESSAGES  039090 

C**»**  039100 

9005  CONTINUE  039110 

WRITE( IPR.45)  039120 

45  FORMAT (‘OFOBET A.  CASE  20(H1 ,H2 , BET  A) :  REFRACTED  TANGENT  ',  039130 

1  'HEIGHT  IS  LESS  THAN  ZERO-PATH  INTERSECTS  THE  EARTH',  039140 


2  // , tOX . ' BETA  IS  TOO  LARGE  FOR  THIS  Ht  AND  H2*)  C39150 

GO  TO  9900  039160 

9006  CONTINUE  039t70 

WRITE(IPR,46)  HI  ,H2, 8ETA, ITER, ANGLE) .BETA1 , ANGLER, 6ETA2,  039160 

1  ANGLE3 , BETA3  039190 

46  FORMATCOFDBETA,  CASE  20  (HI  ,H2,BETA) :  SOLUTION  010  NOT  039200 

1  '  CONVERGE' ,//. 10X, 'HI  .  1  ,  FI 2 .6 ,  '  H2  »  \F12.6,  039210 

2  1  BETA.  \F12.6,'  ITERATIONS.  *,14,//,  039220 

3  10X, 'LAST  THREE  ITERATIONS  1 ,//,  039230 

4  (10X, 'ANGLE  «  \F15.9,'  BETA  •  ' .  FtS.9) )  039240 

9900  1ERR0R  •  1  039250 

RETURN  039260 

END  039270 


SUBROUTINE  EXPINT(X,X1 ,X2,A)  039280 

. . .  039290 

THIS  SUBROUTINE  EXPONENTIALLY  INTERPOLATES  XI  AND  X2  TO  X  BY'  039300 

THE  FACTOR  A  039310 

039320 

IF(X1 . EQ.0.0  .OR.  X2.EQ.0.0)  GO  TO  100  039330 

X  •  XI  * (X2/X1 ) **A  039340 

RETURN  039350 

100  X  »  X1+(X2-X1)*A  039360 

RETURN  039370 

ENO  0393B0 


SUBROUTINE  FNDHMN(H1 , ANGLE, H2, LEN, I  TER, HMIN, PHI, IERROR) 

C........ ........... ............................. ............  ......... 

,C,  THIS  SUBROUTINE  CALCULATES  THE  MINIMUM  ALTITUDE  HMIN  ALONG 
C  THE  REFRACTED  PATH  AND  THE  FINAL  ZENITH  ANGLE  PHI. 

C  THE  PARAMETER  LEN  INDICATES  WHETHER  THE  PATH  GOES  THROUGH 

C  A  TANGENT  HEIGHT  ( LEN»  1 )  OR  NOT  ( LEN  =  0 ) .  IF  ANGLE  >  90  AND 

C  HI  >  H2,  THEN  LEN  CAN  EITHER  BE  1  OR  0,  AND  THE  CHOICE  IS 
C  LEFT  TO  THE  USER. 

C  THE  (INOEX  OF  REFRACTION  -  t.O)  IS  MODELED  AS  AN  EXPONENTIAL 

C  BETWEEN  THE  LAYER  BOUNDARIES,  WITH  A  SCALE  HEIGHT  SH  AND  AN 

C  AMOUNT  AT  THE  GROUND  GAMMA. 

C  CPATH  IS  THE  REFRACTIVE  CONSTANT  FOR  THIS  PATH  AND 
C  EQUALS  INDEX(H1)*(RE+H1).SIN(ANGLE). 

C..t. ....... ....................... 

COMMON  /IF I L/  IRD.IPR.IPU 

COMMON  /PARMTR/  P I , DEG . GCA IR , RE , OE LTAS , ZMIN , ZMAX , IMAX , IMOD , I BMAX , 
1  ICUTMX , I  PATH, IMODMX , IOIM,KD1M,KMXNOM, KMAX , I  PR I NT 
DATA  DH/1.0/, ETA/5. OE-8/ 

C.....£TA  MAY  BE  TOO  SMALL  FOR  SOME  COMPUTERS.  TRY  1 .OE-7  FOR  32  BIT 
C.....WORO  MACHINES 

CRFRCT(H)  .  <R£4H)»AND£X(H,SH, GAMMA) 

N  .  0 

CALL  FINDSK(H1 ,SH, GAMMA) 

CPATH  «  CRFRCT(H1)*SIN(ANGLE/OEG) 

CALL  FINDSH(H2,SH, GAMMA) 

CH2  »  CRFRCT(H2) 

IF(ABS(CPATH/CH2).GT.1 .0)  GO  TO  200 
IF(ANGLE.GT.90.0)  GO  TO  100 
LEN  »  0 
HIWIN  «  HI 
GO  TO  160 
100  CONTINUE 

IF(H1.LE.H2)  LEN  =  1 
I F ( LEN. EQ. 1 )  GO  TO  1 10 
LEN  =  0 
HMIN  =  H2 
GO  TO  160 
110  CONTINUE 

C.....LONG  PATH  THROUGH  A  TANGENT  HEIGHT. 

C..... SOLVE  ITERATIVELY  FOR  THE  TANGENT  HEIGHT  HT. 

C.....HT  IS  THE  HEIGHT  FOR  WHICH  1N0EX( HT ) * (RE+HT )  »  CPATH. 

CALL  FINDSH(0.0.SH. GAMMA) 

CMIN  =  CRFRCT (0.0) 

C.....FOR  BETA  CASES  (!TER>0),  ALLOW  FOR  HT  <  0.0 
IF(ITER.EQ.0  . ANC.  CPATH.LT. CMIN)  GO  TO  150 
HT 1  «  (RE+H1 )*SIN(AnGLE/DcG)-RE 

call  findsh(ht i , sh, gamma) 

CT1  .  CRFRCT(HTl) 

HT2  «  HT1-0H 

CALL  FIN0SH(HT2,SH, GAMMA) 

CT2  =■  CRFRCT  ( HT2  ) 

C.4*. ‘ITERATE  TO  FIND  HT 
N  =  2 

120  CONTINUE 
N  =  H+1 

HT3  =  HT2+(HT2-HT1)«(CPATH-.'T2)/(CT2-CT1) 

CALL  FINDSH(HT3,SH, GAMMA) 

CT3  *  CRFRCT (HT3 ) 

DC  .  CPATH-CT3 

IF(AES(1CPATH-CT3)/CPATH).LT.ETA)  GO  TO  130 


039390 

039400 

039410 

039420 

039430 

039440 

039450 

039460 

039470 

039480 

039490 

039500 

039510 

039520 

039530 

039540 

039550 

039560 

039570 

039580 

039590 

039600 

039610 

039620 

039630 

039640 

039650 

039660 

039670 

039680 

039690 

039700 

039710 

039720 

039730 

039740 

039750 

039760 

039770 

039700 

039790 

039800 

039810 

039820 

039330 

039840 

039350 

039360 

C39870 

039330 

039890 

C33900 

039910 

039920 

039930 

039940 

039950 

C39960 

039970 

039980 


113 


IF<N.GT.15)  GO  TO  210 
HT1  «  HT2 
CT1  «  CT2 
HT2  «  HT3 
CT2  •  CT3 
GO  TO  120 
130  CONTINUE 
HT  «•  HT3 
HMIN  •  HT 
GO  TO  160 
150  CONTINUE 

TANGENT  PATH  intersects  EARTH 

H2  «  0.0 

HMIN  *  0.0 

LEN  «  0 

CH2  *  CMIN 

INR I T E ( IPR.22)  HI  .ANGLE 

22  FORMAT!///,'  TANGENT  PATH  WITH  HI  «  ‘.F10.3,'  AND  ANGLE  •  ', 

1  F10.3,'  INTERSECTS  THE  EARTH' ,//, 10X, 'H2  HAS  SEEN  RESET 

2  'TO  0.0  AND  LEN  TO  O' ) 

160  CONTINUE 

C.»*. .CALCULATE  THE  fENITH  ANGLE  PHI  AT  H2 
PHI  •  ASIN(CPATH/CH2)»DEG 

IF(ANGL£.L£.90.0  .OR.  LEN.EQ. 1 )  PHI  •  180.0-PHI 
RETURN 

C.....H2  LT  TANGENT  HEIGHT  FOR  THIS  HI  AND  ANGLE 
200  CONTINUE 

WRI TE( IPR. 20) 

20  FORMAT ( ' 0H2  IS  LESS  THAN  THE  TANGENT  HEIGHT  FOR  THIS  PATH  ', 
1  'AND  CANNOT  BE  REACHED') 

IERROR  >  2 
RETURN 

210  CONTINUE 

DC  *  CPATH-CT3 

WRITE! IPR, 24)  N,CPATH,CT3.DC,HT3 
24  FORMAT (///, 'OFROM  SUBROUTINE  FNDHMN  :',//, 


1 0X , 'THE  PROCEEOURE  TO  FIND  THE  TANGENT  HEIGHT  DID  NOT 
'CONVERG  AFTER  '.13,'  ITERATIONS',//, 


lOX.'CPATH 
//.lOX.'DC 
10X, 'HT3 


STOP  05 
END 


‘  ,  F12.5, '  KM* ,//,  1 0X,  'CT3 
.  ' ,E12.3, 1  KM' ,//, 

' , F12.5, '  KM') 


' .F12.5, '  KM' , 


039990 

040000 

040010 

040020 

040030 

040040 

040050 

040060 

040070 

040080 

040090 

040100 

040110 

040120 

040130 

040140 

040150 

040160 

040170 

(>40180 

040190 

040200 

040210 

040220 

040230 

040240 

040250 

040260 

040270 

040280 

040290 

040300 

040310 

040320 

040330 

040340 

040350 

040360 

040370 

040380 

040390 

040400 

040410 
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SUBROUTINE  FINDSH(H,SH. GAMMA)  040420 

•  040430 

GIVEN  AN  ALTITUDE  H,  THIS  SUBROUTINE  FINDS  THE  LAYER  BOUNDARIES  040440 

Z(I1)  AND  2(12)  WHICH  CONTAIN  H,  THEN  CALCULATES  THE  SCALE  040450 

HEIGHT  (SH)  ANO  THE  VALUE  AT  THE  GROUND  (GAMMA+1)  FOR  THE  0404S0 

REFRACTIVITY  (INDEX  OF  REFRACTION  -1)  040470 

•  •.••••MtOM.iMMOMIOM.MIttMOMtMMMtlMttMMMtMtMt  0404B0 

COMMON  /IF! L/  IRD.IPR.1PU  040490 

COMMON  /PARMTR/  PI , OEG.GCAIR , RE , DELTAS, 2M IN, 2MAX , IMAX , IMOD , IBMAX,  040500 

1  IOUTMX , I  PATH , IMODMX , IOIM , KDIM »  KMXNOM ( KMAX , NOPRNT  040510 

CB  OOUBLE  PRECISION  HMOD  CB040520 

COMMON  HM0D( >),2M(50)*PM(50),TM(50)( RFNOXM( 50) ,DENM(20,50)  040530 

COMMON  ZP(71),PP(71),TP(71),RFNDXP(71),SP(71),  040540 

1  PPSUM(71),TPSUM(71),RHOPSM(71),0ENP(20,7l),AMTP(20,71)  040550 

COMMON  Z(71),P(71),T(71),RFNDX(71),OENSTY(20,71)  040560 

00  100  IM*2 , IMOD  040570 

12  <  1M  040580 

IF( ZM( IM) . GE.H)  GO  TO  110  040590 

100  CONTINUE  040600 

12  <  IMOD  040610 

110  CONTINUE  040620 

II  «  12-1  040630 

CALL  SCALHT(ZM(I1),2M(I2),RFNDXM(I1),RFNDXM(I2),SH,GAMMA)  040640 

RETURN  040650 

END  040660 


o  o  o  o  o  o 


SUBROUTINE  SCALHT(Z1 , 22, RFNDX1 .RFN0X2.SH, GAMMA )  040670 

040680 

THIS  SUBROUTINE  CALCULATES  THE  SCALE  HEIGHT  SH  OF  THE  (INDEX  OF  040690 
REFRACTION-1. 0)  FROM  THE  VALUES  OF  THE  INDEX  AT  THE  ALTITUDES  21  040700 

AND  Z2  (  21  <  22).  IT  ALSO  CALCULATES  THE  EXTRAPOLATED  VALUE  040710 

GAMMA  OF  THE  (INDEX-1.0)  AT  Z  «  0.0  040720 

•  040730 

RF1  *  RFNDX1+1 . 0E-20  040740 

RF2  =  RFNDX2+1 .0E-20  040750 

RATIO  =■  RF1/RF2  040760 

IF( A8S(RAT 10-1 . 0 ) . LT. 1 .0E-05)  GO  TO  100  040770 

SH  «  (22-Z1 )/ALOG(RATIO)  040780 

GAMMA  »  RF1*(RF2/RF1 )• * (“Z1/(Z2-Z1 ) )  040790 

GO  TO  110  040800 

100  CONTINUE  040810 

C.....THE  VARIATION  IN  THE  INDEX  OF  REFRACTION  WITH  HEIGHT  IS  040820 

C***.. INSIGNIFICANT  OR  ZERO  040830 

SH  >  0.0  040840 

GAMMA  «  RFNDX1  040850 

110  CONTINUE  040860 

RETURN  040870 

ENO  040880 


ooooy 


FUNCTION  AN0EX(H,SH, GAMMA)  040890 

•  040900 

COMPUTES  TFC  INDEX  OF  REFRACTION  AT  HEIGHT  H,  SH  IS  THE  040910 

SCALE  HEIGHT,  GAMMA  IS  THE  VALUE  AT  H»0  OF  THE  REFRACTIV1TY  •  040920 

INOEX-1  040930 

. . ..  040940 

IF(SH.EO.O.O)  GO  TO  10  040950 

ANOEX  »  1.0+GAMMA«EXP(-H/SH)  040960 

RETURN  040970 

10  ANDEX  «  1.0+GAMMA  040980 

RETURN  040990 

END  041000 


ouuu 


FUNCTION  RAOREF(H,SH, GAMMA)  041010 

041020 

COMPUTES  THE  RADIUS  OF. CURVATURE  OF  THE- REFRACTED  RAY  FOR  041030 

A  HORIZONTAL  PATH.  RADREF  .  ANOEX/  0(ANDEX)/D(RA0IUS)  041040 

041050 

DATA  6IGNUM/1 .0E36/  041060 

IF(SH.EO.O.O)  GO  TO  20  041070 

RAOREF  >  SH»(1 .0+EXP(H/SH)/GAMMA)  0410S0 

RETURN  041090 

20  RAOREF  •  BIGNUM  041100 

RETURN  041110 

END  041 t20 


ooooooooooo 


SUBROUTINE  RFPATH(H1 ,H2, ANGLE, PHI. LEN.HMIN, IAMT, RANGE, BETA .BENONG)  041130 

041140 

THIS  SUBROUTINE  TRACES  THE  REFRACTEO  RAY  FROM  HI  WITH  A  041150 

'INITIAL  ZENITH  ANGLE  ANGLE  TO  H2  WHERE  THE  ZENITH  ANGLE  IS  PHI,  041160 
ANO  CALCULATES  THE  ABSORBER  AMOUNTS  (I?  IAMT.EQ.1)  ALONG  041170 

THE  PATH.  IT  STARTS  FROM  THE  LOWEST  POINT  ALONG  THE  PATH  041180 

(THE  TANGENT  HEIGHT  HMIN  IF  LEN  .  1  OR  HA  «  MIN(H1 ,H2)  IF  LEN  *  0)  041190 
AND  PROCEEDS  TO  THE  HIGHEST  POINT.  BETA  AND  RANGE  ARE  THE  041200 

EARTH  CENTERED  ANGLE  ANO  THE  TOTAL  DISTANCE  RESPECTIVELY  041210 

FOR  THE  REFRACTED  PATH  FROM  HI  TO  H2,  AND  BENDNG  IS  THE  TOTAL  041220 

BENOING  ALONG  THE  PATH  041230 

•  C41240 

COMMON  /IFIL/  IR0.IPR.1PU  041250 

COMMON  /PARMTR/  PI, DEG. GCAIR, RE. DELTAS, ZMIN, ZMAX, IMAX, IMOD, IBMAX,  041260 
1  10UTMX,IPATH,IM0DMX,I0IM,KDIM.KMXN0M,KMAX,N0PRNT  041270 

C«  DOUBLE  PRECISION  HMOD  CS041280 

COMMON  HM0D(3) , ZM(50) , PM(50) , TM(SO) , RFNDXM(50) ,DENM(20,50)  041290 

COMMON  ZP(71),PP(71),TP(71), RFN0XP( 71 ) , SP ( 7 1 ) ,  041300 

1  PPSUM(71),TPSUM(71).RH0PSM(7I),DENP(20.7I),AMTP(20,71)  041310 

COMMON  Z(71),P(71),T(71),RFNDX(71),DENSTYJ[20,71)  041320 

DIMENSION  HL0W(2)  041330 

DATA  HL0W/2HH1 ,2HH2/  041340 

IF(Ht .GT.H2)  GO  TO  90  041350 

IOROER  *  1  '  041360 

HA  *  HI  041370 

HB  *  H2  041380 

ANGLEA  *  ANGLE  041390 

GO  TO  95  041400 

90  CONTINUE  041410 

IOROER  »  -1  041420 

HA  *  H2  041430 

HB  -  HI  041440 


ANGLEA  *  PHI  041450 

95  CONTINUE  041460 

JNEXT  *  1  041470 

IF( I AMT. EG. 1  .AND.  NOPRNT.NE.1)  WR I TE( I  PR , 20)  041480 

20  FORMAT( 1 1CALCULATI0N  OF  THE  REFRACTEO  PATH  THROUGH  THE  ',  041490 

1  ‘ATMOSPHERE1  JH.  041500 

4  T5, ‘I‘ .T14, ‘ALT! TUOE’ ,T30, ‘THETA' .138, ‘ORANGE’ .T47 , ■ RANGE • ,  041510 

5  T57, ‘DBETA‘ ,T6S, 'BETA' ,T76, ' PHI • , T84 , ' DBENO' ,T91 , 'BENDING1 ,  041520 

6  T102,‘PBAR‘.T11i.‘T8AR‘,T119,‘RH0BAR‘,/,  041530 

7  Til , ‘FROM’ ,T22. ‘TO1 ,/,Tl1 , ‘(KM) ‘ , T21 , 1 (KM) 1 ,T30, ‘ (DEG) 1 ,  041540 

8  T39, ‘(KM)  ‘ ,T4B. 1 (KM) ‘ ,T57, ‘ (DEG)1 ,T65, ‘ (DEG) 1 ,T75. ‘ (DEG) 1 .  041550 

9  T84, 1 (DEG) ‘ , T92 . ‘ ( OEG) ‘ , T102, 1 (MB) ‘ , T1 12, ‘ ( K) ‘ ,  041560 

1  T 1 1 7 , 1  ( MOL  C.M-3 )  ‘  ,  / )  041570 

I F ( LEN.EQ.O)  GO  TO  100  0415B0 

C»»».*LONG  PATH:  FILL  IN  THE  SYKETRIC  PART  FROM  THE  TANGENT  HEIGHT  041590 

C*****TO  HA  041600 

CALL  FILL(HMIN.HA.JNEXT)  041610 

JHA  =>  dNEXT  041620 

100  CONTINUE  041630 

C«**«*FILL  IN  THE  REMAINING  PATH  FROM  HA  TO  HB  041640 

IF(HA.EO.HB)  GO  TO  110  041650 

CALL  FILL(HA,HB. JNEXT)  041660 

110  CONTINUE  041670 

UMAX  *  JNEXT  041680 

IPATH  *  JMAX  041690 

C»»... INTEGRATE  EACH  SEGMENT  OF  THE  PATH  041700 

C*...*CALCULATE  CPATH  SEPERATLLY  FOR  LEN  »  0.1  041710 

IF(LEN.EO.I)  GO  TO  115  041720 


CALL  F I NOSH ( HA, SH, GAMMA) 

CPAIH  «  (RE+HA)<ANDEX(HA,SH,GAMMA)<SIN(ANGLEA/DEG) 

GO  TO  116 

115  CONTINUE 

CALL  FINDSH(HMIN.SH, GAMMA) 

CPATH  a  (RE+HMIN)<AND£X(H.M!N,SH, GAMMA) 

116  CONTINUE 
BETA  a  0.0 
S  *  0.0 
8EN0NG  *  0.0 

I F( LEN.EQ. 0}  GO  TO  140 

C.»»*»DO  SYMETRIC  PART,  FROM  TANGENT  HEIGHT (HMIN)  TO  HA 
IHLOW  ■»  1 

I F ( IORDER. EQ.-1 )  IHLOW  =  2 

I F I  I  AMT . EO . 1  .AND.  N0PRNT.NE.1)  WRITE( IPR , 24)  HLOW(IHLOW) 

24  FORMAT ( *  • ,T10, ‘TANGENT1 ,120, A2./.T10, 'HEIGHT' ,/) 

SINAI  *  1.0 
COSAI  =0.0 
•THETA  «  90.0 
J2  a  UHA-1 
00  120  J=1 ,J2 

-  CALL  SCALHT(ZP(J),ZP(d<1),RFN0XP(J),RFNDXP(d+1),SH, GAMMA) 

CALL  ALAYER(J, SINAI , COSAI , CPATH, SH, GAMMA, I AMT , OS , OBEND) 

DBEND  a  OBENO*OEC. 

PHI  =  AS IN( SINAI ) »DEG 
DBETA  a  THETA-PHI tOBENO 
PHI  a  180.0-PHI 
S  =  S+DS 

BENONG  a  BENDNG-DBEND 
BETA  =  BETA+OBETA 
IF( I AMT .NE. 1 )  GO  TO  118 
PBAR  =  PPSUM(J)/RHOPSM(d) 

T3AR  =  TPSUM( J)/RHOPSM(d) 

RHOBAR  a  RH0PSM1 J ) /US 

I F ( I  AMT , EO . 1  .AND.  N0PRNT.NE.1)  WR ITE ( IPR , 22 )  d,ZP(J) ,ZP(d+1 ) , 
1  THETA, OS, S.DBETA.BETA. PHI , DBEND , BENONG, PBAR , TBAR , RHOBAR 
22  FORMAT ( '  • , I4.2F10.3, 10F9.3, 1PE9.2) 

118  CONTINUE 

THETA  a  180.0-PHI 
120  CONTINUE 

C<<<O00UBLE  PAIH  QUANTITIES  FOR  THE  OTHER  PART  OF  THE  SYMETRIC  PATH 
BENONG  a  2.0*BEN0NG 
BETA  =  2.0*BETA 
S  =  2.0<S 

IF( I AMT .EO. 1  .AND.  N0PRNT.NE.1)  WR ITE( I  PR . 26 )  S , BETA , BENONG 
26  F0RM4T( 'O' ,T10, 'DOUBLE  RA?1  GE ,  BETA,  BENDING'./, 

1  T 1 0 , ' FOR  SYMMETRIC  PART  OF  PATH' ,T44 . F9.3, T62, F9 .3, 

2  T39.F9.3./) 

UNEXT  «  UHA 

CO  TO  ISO 
140  CONTINUE 
C*****SHORT  PATH 
JNEXT  =  1 

c*****anglea  is  the  zenith  angle  at  ha  in  deg 

C**»**SINAI  IS  SIN  OF  THE  INCIDENCE  ANGLE 

C*»***COSAI  IS  CARRIED  SEPERATELY  TO  AVOID  A  PRECISION  PROBLEM 
C*** **WHEN  SINAI  IS  CLOSE  TO  1.0 
THETA  »  ANGLEA 

IF( ANGLEA.GT .45.0)  GO  TO  145 
SINAI  *  SIN ( ANGLE A/DEG ) 


041730 
041740 
041750 
041760 
041770 
041780 
041790 
041800 
041810 
041820 
041830 
041840 
041850 
041860 
041870 
041680 
041890 
041900 
041910 
041920 
041930 
041940 
041950 
041960 
041970 
041980 
04 1590 
042000 
042010 
042020 
042030 
042040 
042050 
042060 
C42070 
042080 
042090 
042100 
042110 
042120 
042130 
042 i 40 
042150 
042160 
042170 
042180 
042190 
042200 
042210 
042220 
042230 
042240 
042250 
C4226C 
042270 
042280 
C42290 
042300 
042310 
042320 


COSAI  «  -COS(ANGLEA/0£G)  Q42330 

GO  TO  150  042340 

145  CONTINUE  042350 

SINAI  *  COS((90.0-ANGLEA)/DEG)  042360 

COSAI  «  -SIN((gO.O-ANGL£A)/OEG)  042370 

150  CONTINUE  042380 

C«»*»«00  PATH  FROM  HA  TO  HB  042390 

IF(HA.EO.HB)  GO  TO  170  042400 

J1  a  JNEXT  042410 

J2  =  UMAX-1  042420 

IHLOW  s  1  042430 

IF(IOROER.EO.-I)  IHLOW  «  2  042440 

IHIGH  >  MOD( IHLOW, 2)+1  042450 

I F ( I AMT . EO • 1  .AND.  N0PRNT.NE.1)  WRITE< IPR.28)  HLOW(IHLOW),  042460 

1  HLOW( IHIGH)  042470 

28  FORMAT  ( '  714,42,'  TO  '  ,A2,/)  042480 

00  160  J=J 1 , J2  042490 

CALL  SCALHT  (2P(U)  . 2P( J+1 )  ,RFNDXP(d)  , RFNDXP(U+1  )  ,SH, GAMMA)  042500 

CALL  ALAY£R(J, SINAI, COSAl.CPATH.SH, GAMMA. IAMT, OS, D8EN0)  042510 

DBENO  *  OBEND»OEG  042520 

PHI  »  ASIN( SINAI )*DEG  042530 

OBETA  «  THETA-PHI+DBENO  042540 

PHI  -  180. O-PHI  042550 

S  »  S+OS  042560 

BENDNG  *  BENDNG+DBEND  042570 

8ETA  «  BETA+DBETA  042580 

I F ( IAMT.NE. 1 )  GO  TO  158  042590 

P8AR  *  PPSUM(J5/fiH0PSM(J)  042600 

T3AR  «  TPSUM(d)/RHOPSM(U)  042610 

RHOBAR  =  RHOPSM( JJ/DS  042620 

IF( IAMT.EO. 1  .AMD.  N0PRNT.NE.1)  WRITE( IPR.22)  d.2P(J) ,2P(u+1 ) ,  042630 

1  THETA. DS.S.OBETA, BETA, PHI .DBEND, BENDNG, PBAR.TBAR, RHOBAR  042640 

158  CONTINUE  042650 

fHETA  *  180.0-PHI  042660 

ISO  CONTINUE  042670 

170  CONTINUE  .  042680 

IF(IORDER.EQ.-I)  PHI  «  ANGlEA  042690 

RANGE  >  S  042700 

RETURN  042710 

END  042720 


SUBROUTINE  FILL(HA,HB. JNEXT)  042730 

. . 042740 

C  THIS  SUBROUTINE  DEFINES  THE  ATMOSPHERIC  BOUNDARIES  OF  THE  PATH  042750 

C  FROM  HA  TO  HB  AND  INTERPOLATES  (EXTRAPOLATES)  THE  DENSITIES  TO  042760 

C  THESE  BOUNDARIES  ASSUMING  THE  DENSITIES  VARY  EXPONENTIALLY  042770 

C  WITH  HEIGHT.  042780 

C********** . «••••»••***.•••••*••••••«••••««•*..••»•••*••••**•*•*••  042790 

COMMON  /IFIL/  IRD.IPR.IPU  O42B0O 

COMMON  /PARMTR/  PI , DEG, GCAIR, RE, DELTAS, ZMIN.ZMAX, IMAX, IMOO, IBMAX,  042810 
1  IOUTMX, IPATH, 2M0DMX, tOIM.KOIM.KMXNOM.KMAX.NOPRNT  042820 

C6  DOUBLE  PRECISION  HMOD  C6042B30 

COMMON  KM0D(3) ,ZM(SO) , PMf1') .TM(50) , RFN0XM(50) , OENM(20,50)  042B40 

COMMON  ZP(71 ) ,PP(71 ) ,TP(7\  <  lFNDXP(71 ) ,SP(71 ) ,  042850 

1  PPSUM{71 ) ,TPSUM(71 ) , RH0PJM(71 ) ,DENP(20,71 ) , AMTP(20,71 )  042860 

COMMON  Z(71),P(71),T(71),RFNDX(71),0ENSTY(20.7t)  042870 

IF(HA.LT.HS)  GO  TO  90  042B80 

WR!TE( 1PR.22)  HA, HB, JNEXT  042890 

22  FORMAT ( 1 OSUBROUT INE  FILL-  ERROR,  HA  ,GE.  HB1,//,  042900 

1  lOX.'HA,  HB,  JNEXT  «  1 ,2E25. 15, 18)  042910 

STOP  06  042920 

90  CONTINUE  042930 

C*****FIND  Z( I A ) —  THE  SMALLEST  2(!).GT.HA  042940 

00  100  1*1 , I MAX  0429S0 

I F(HA.GE.Z( I ) )  GO  TO  100  042960 

1A  •  I  042970 

GO  TO  110  042980 

100  CONTINUE  042990 

IA  «  IMAX+1  043000 

IB  •  IA  043010 

GO  TO  130  043020 

C.....FIND  Z ( IB)—  THE  SMALLEST  Z(I).GE.HB  043030 

110  CONTINUE  043040 

DO  120  I*!A , IMAX  043050 

IF(HB.GT.Zd))  GO  TO  120  043060 

IB  *  I  043070 

GO  TO  130  043080 

120  CONTINUE  043090 

IB  <  IMAX+1  043100 

130  CONTINUE  043110 

C*«»*. INTERPOLATE  DENSITIES  TO  HA.  HB  043120 

ZP( JNEXT)  *  HA  043130 

12  *  IA  043140 

IF(I2.E0.1)  12  *  2  043150 

IFU2.GT.IMAX)  12  »  IMAX  043160 

II  *  12-1  043170 

A  .  <HA-Z(11))./(Z(!2|-Z(I1  ))  043180 

call  ExPiNT(pp(jNExr),Ptii;,P(i2),A;  043190 

TP( JNEXT )  .  T(II)  +  (T{!2.-T(11))+A  043200 

CALL  EXPlNT(RFNDT»(JNSXT),RFNDX(It),RFN0X(I2),A)  043210 

00  140  K*1 , KMAX  043220 

CALL  EXP1NT(0ENP(K,JNEXT),DENSTY(K,I1),DENSTY(K,I2),A)  043230 

140  CONTINUE  043240 

IFJIA.E0.1B)  GO  TO  160  043250 

C****+FILL  IN  OENSITIES  BETWEEN  HA  AND  HB  043260 

11  *  IA  043270 

12  *  IB-1  043280 

00  150  1*11,12  043290 

JNEXT  «  JNEXT+1  043300 

ZP(JNEXT)  .  Z(I)  043310 

PP(JNEXT)  .  P(I)  043320 


TP(JNEXT)  «  T ( I )  043330 

RFNOXP(i)NEXT)  >  RFNOX(t)  043340 

00  >50  K«1 , KMAX  043350 

OENP(K.JNEXT)  «  DENSTY(K.I)  043360 

150  CONTINUE  043370 

160  CONTINUE  043380 

C*»»«*INTERPOLATE  THE  DENSITIES  TO  HS  043390 

vJNEXT  ■  JNEXT+1  043400 

ZP(dNEXT)  •  H6  043410 

t2  >  16  043420 

IF( I2.EQ.1 )  12  •  2  043430 

IF(12.QT.IMAX)  12  «  1MAX  043440 

II  «  12-1  043450 

A  •  (H8-Z( I1))/(Z(I2)-2(I1))  043460 

CALI  EXPINT(PP(JNEXT).P(I1),P(I2).A)  043470 

TP(dNEXT)  «  T(I1)+(T(I2)-T(I1))«A  043480 

CALL  £XPINT(RFNDXP(dNEXT),RFN0X(I1),RFNDX(l2),A)  043490 

00  170  K*1,KMAX  043500 

CALL  EXPINT(DENP(K,JNEXT),0ENSTY<K,I1),0ENSTY(K,I2),A)  043510 

170  CONTINUE  043520 

RETURN  043530 

END  043540 
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SUBROUTINE  A„AYER( J, SINAI, COSAI, CPATH, 5H. GAMVA. IAMT.S, BEND)  043550 

. . .  0435*0 

THIS  SUBROUTINE  TRACES  THE  OPTICAL  RAY  THROUGH  ONE  LAYER  FROM  043570 

21  TO  22  AND  IF  IAMT.NE.2  CALCULATES  THE  INTEGRATED  ABSORBER  043580 

AMOUNTS  FOR  THE  LAYER.  SINAI  IS  THE  SIN  OF  THE  INITIAL  INCIDENCE  043590 
ANGLE  (•  180  -  ZENITH  ANGLE) ,  COSAI  IS  CARRIED  SEPERATELY  TO  043600 

AVOID  A  PRECISION  PROBLEM  NEAR  SINAI  a  1.  CPATH  IS  THE  CONSTANT  0436!0 
OF  REFRACTION  FOR  THE  PATH  :  INDEX*RADIUS*SINAI ,  SH  AND  GAMMA  ARE  043620 
THE  SCALE  HEIGHT  AND  THE  AMOUNT  AT  THE  GROUND  FOR  THE  REFRACT  1 , 1 1 Y  043630 
(•  1-INDEX  OF  REFRACTION),  S  IS  THE  REFRACTED  PATH  LENGTH  THROUGH  043640 
THE  LAYER,  BETA  IS  THE  EARTH  CENTERED  ANGLE,  AND  BEND  IS  THE  C43650 

SENDING  THROUGH  THE  LAYER.  I AMT  CONTROLS  WHETHER  AMOUNTS'  ARE  043660 

CALCULATED  OR  NOT.  043670 

043680 

COMMON  /IF I L/  IRO.IPR.IPU  043690 

COMMON  /PARMTR/  PI , DEG, GCA  I R ,RE , DELTAS, EMIN, 2MAX , IMAX , I MOD , I  BY AX ,  043700 

1  I0UTMX,IPATH,IMQDMX,I01M,KDIM,KMXN0M.KMAX,N0PRNT  043710 

CA  DOUBLE  PRECISION  HMOO  CS043720 

COMMON  HM0D(3) ,ZM(50) ,PM(50) ,TM(50) ,RFNDXM(50) ,DENM(20,50)  043730 

COMMON  2P(71),PP(71),TP(71),RFN0XP(71),SP(71),  043740 

1  PPSUM(71 ),TPSUM(71 ) ,RH0PSM(7I) ,0ENP(2C,r« ) ,AMTP(20,71 )  043750 

COMMON  Z(71 ) ,P(7l ) ,T (71 ) ,RFNDX(71 ) , DENSTY ( 20 , > 1 )  043760 

DIMENSION  HDEN120) ,DENA(20) ,D£NB(20)  043770 

DATA  EPSILN/1 .0E-5/  043780 

N  a  0  04379C 

21  *  ZP( J)  043800 

Z2  »  ZP(,H-1)  043810 

HI  »  Z1  043820 

R1  *  RE+H1  043830 

OHMIN  «  0ELTAS**2/(2.0*R1)  043840 

SINA1 1  a  SINAI  043850 

C0SA11  a  COSAI  043860 

!F((1.0-S1NAJ).LT.EPSILN)  Y1  a  COSAI 1 ». 2/2 .0+ TOSAII • *4/8 . 0+  043870 

1  C0SAI1 **6*3.0/48.0  043880 

Y*  a  0.0  043890 

XI  «  -R1*C0SAI1  043900 

RAT  101  a  f!1/RADR£F(H1  ,SH, GAMMA)  043910 

050X1  •  1 . 0/ ( 1 . 0-KAT IC 1  * SINA1 1 «  *2)  043920 

DBN0X1  a  DSDX1»SINAII*RATI01/R1  043930 

S  «  0.3  043940 

8EN0  a  0.0  043950 

IFIIAMT.E0.2)  GO  TO  110  043960 

INITIALIZE  the  VARIABLES  FOR  THE  CALCULATION  Of  THE  043970 

c*.... ABSORBER  AMOUNTS  043980 

PA  a  PP(J)  043990 

PB  a  PP(J+1)  044000 

TA  a  TP'vJ)  044010 

TB  =  TP{ J+1 )  044020 

RIIOA  a  PA/(GCAIR*TA)  044030 

RH08  «  PB/<GCAIR-TB)  044040 

02  a  ZP( J+1 )-Z?| J)  044050 

HP  «  -DZ/ALOGlPB/PA)  044060 

IF;A6S(RH0B/RH0A-1.0).LT.EPSILM)  GO  TO  90  044070 

tIRHO  a  -DZ/ALOG(  RHOft/RHOA)  044080 

GO  TO  95  044090 

90  HRHO  a  | , 0E30  044100 

95  CONTINUE  044110 

00  105  Kal , KMAX  044120 

DENA(K)  a  DENP(K.J)  044130 

DENB(K)  a  OENP(K,J+i)  044140 


1F(DENA(K).EQ.0.0  .OR.  0ENB( K) . £Q. 0 . 0 )  GO  TO  100  044150 

IF(ABS(1.0-DENA(K)/DENB(K)).L£.EPSILN)  GO  TO  100  044160 

C***j*»US£  EXPONENTIAL  INTERPOLATION  044170 

HO£N(K,  >  -OZ/ALOG(OENB(K)/DENA(K))  044180 

GO  TO  105  044190 

C*****USE  LINEAR  INTERPOLATION  044200 

100  HOEN(X)  *  0.0  044210 

105  CONTINUE  044220 

110  CONTINUE  044230 

044240 

C«***«LOOP  THROUGH  PATH  044250 

C«***. INTEGRATE  PATH  QUANTITIES  USING  QUADRATIC  INTEGRATION  WITH  044260 

C***** UNEQUALLY  SPACEO  POINTS  044270 

C**»**  044280 

115  CONTINUE  044290 

N  «  N+1  044300 

OH  *  -DELTAS«C0SAI1  044310 

lF(OH.LT.CHMIN)  OH  *  OHMIN  044320 

H3  »  H1+0H  044330 

IF(H3.GT.Z2)  H3  -  Z2  044340 

DH  *  H3-H1  044350 

R3  »  RE+H3  044360 

H2  «  H1+0H/2.0  044370 

R2  *  RE+H2  044380 

SJNAI2  *  CPATH/(ANDEX(H2,SH,GAMMA)*R2)  044390 

SINAI3  *  CPATH/(AND£X(H3,SH,GAMMA)*R3)  044400 

RAT  102  *  R2/RADR£F(H2,SHiGAMI  A)  044410 

RAT  103  *  R3/RA0REF(H3,SH, GAMMA)  044420 

IF( ( 1 . 0-S1NAI2) .GT.EPSILN)  GO  TO  116  044430 

C*****N£AR  A  TANGENT  HEIGHT.  C0SA1  a  -SQRT( 1-SINAi-*2)  LOSES  044440 

C***»* PRECISION.  USE  THE  FOLLOWING  ALGORITHM  TO  GET  COSAI.  044450 

Y3  -  Y1+(SINA11*(1.0-RATI01)/R1+4.0*SINAI2*(1.0-RATI02)/R2+  044460 

1  SINAI3«(1.0-RATI03)/R3)*DH/6.0  044470 

C0SAI3  *  -SQRT(2.0*Y3-Y3**2)  044480 

X3  *  -R3*C0SAI3  044490 

OX  *  X3-X1  044500 

W1  «  0.5*0X  044510 

W2  *  0.0  044520 

K  *  0.5*DX  C44S30 

GO  TO  118  044540 

C*»*«»  044550 

116  CONTINUE  044560 

C0SAI2  «  -SQRT(1 . 0-SINAI2* v2 )  044570 

COSAI 3  «  "SORT ( 1 . O-SINA 13**2 )  044580 

X2  »  -R2*C0SA12  044590 

X3  *  -R3*C0SAI3  044600 

C...*«CALCULATE  WEIGHTS  044610 

031  ■=  X3-X1  044620 

032  =  X3-X2  044630 

021  *  X2-X1  '  044640 

IF(032.EQ.0.0  -OR.  021. EQ. 0.0)  GO  TO  117  04465C 

W1  =  (2.0-032/021 )*D31/6.0  044660 

W2  =>  031**3/(032*021*6.0)  044670 

W3  *  (2.0-021/0321*031/6.0  044680 

GO  TO  118  044690 

117  CONTINUE  044700 

W1  =■  0.5*031  044710 

W2  *  0.0  044720 

W3  =  0.5*031  044730 

C**»*«  044740 


118  CONTINUE  044750 

DSDX2  «  1.0/(1.0-RATI02*S1NAI2*«2)  044760 

0SDX3  «  1 .0/(1 .0-RAT!03«SINAI3»*2)  044770 

OBNOX2  *  DSDX2*SINAI2*RATI02/R2  044780 

0BNDX3  »  0SDX3»SINAI3‘RATI03/R3  044790 

C.....INTEGRATE  044800 

OS  a  W1 *0S0X1+W2*DSDX2+W3»DSDX3  044810 

S  *  S+OS  044820 

DBEND  a  WI«O8NDX1+W2»O8NDX2+W3*0BNOX3  044830 

SEND  a  8END+0BEND  044840 

IF(IAMT.E0.2)  GO  TO  150  044850 

C»«.* .CALCULATE  AMOUNTS  044860 

OSOZ  «  DS/DH  044870 

P8  *  PA. EXP (“OH/HP)  044880 

RHOB  a  RHOA*EXP(-OH/HRHO)  044890 

IF((OH/HRHO).LT.EPSILN)  GO  TO  120  044900 

PPSUM(d)  «  PPSUM( J)+0SD2*(HP/(1 . O+HP/HRHO) ) * (PA*RHQA“PB*RHOB)  044910 

TPSUM(d)  a  TPSUM(d)+DS0Z*HP»(PA-P8)/GCAIR  044920 

RHOPSM(d)  «  RH0PSM(d)+0SDZ*HRH0*(RH0A-RH08)  044930 

GO  TO  125  C44940 

120  CONTINUE  044950 

PPSUM(J)  a  PPSUM(J)+0 *5»DS. ( PA*RHOA+PB*RHOB)  044960 

TPSUM(d)  a  TPSUMl d)+O.S*DS-(PA+PB)/GCAIR  1044970 

RHOPSM(J)  a  RHOPSM( J)+0 .5*DS* (RHOA+RHOB)  044980 

125  CONTINUE  044990 

DO  140  Kal.KMAX  045000 

IF(HOEN(K) .EO.O.O)  GO  TO  130  045010 

IF(ABS(DH/HDEN(K)).LT.EPSILN)  GO  TO  130  045020 

C.«..« EXPONENTIAL  INTERPOLATION  045030 

OENB(K)  a  DENP(K,J).EXP(-(H3-Z1)/HDEN(K))  045040 

C.****1 -0E5  FACTOR  CONVERTS  FROM  KM  TO  CM  045050 

AMT°(Ktd)  •  AMTP(K,J)+DSDZ.HDEN(K)«(DENA(K)-DENB(K))»1.0E5  045060 

GO  TO  140  045070 

130  CONTINUE  045080 

c..... LINEAR  INTERPOLATION  045090 

DFNB'K)  a  DENP(K,U)  +  (OENP(K,d+1)-0£NP(K»d)  )*(H3“Z1  )/DZ  045100 

AMTP(K.d)  a  AMTP(K,d)+0.S.(0ENA(K)+0ENB(K)).DS*1 .0E5  045110 

140  CONTINUE  045120 

PA  a  PB  045130 

RHOA  a  RHOB  045140 

DO  145  K*1 ,KMAX  045150 

145  DENA(K)  .  DENB(K)  ’  045160 

150  CONTINUE  045170 

IF(H3.GE.Z2)  GO  TO  160  045180 

HI  a  H3  045190 

R1  a  R3  045200 

SINA1 1  =  SINAI 3  045210 

RAT  101  •  RAT 103  045220 

Y1  .  Y3  045230 

C0SA11  a  C0SAI3  045240 

XI  a  X3  045250 

0S0X1  a  0SDX3  045260 

0BNDX1  a  DBNDX3  045270 

CC  TO  115  045280 

160  CONTINUE  045290 

SINAI  =  SINAI3  045300 

C03AI  a  C0SAI3  045310 

SP(d1  •  S  045320 

RETURN  045330 

END  045340 
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SUBROUTINE  AUTLAY(HMIN,HMAX, VBAR .AVTRAT , TDIFF1 , TDIFF2, IBNO, 
1  I  ERROR) 


THIS  SUBROUTINE  AUTOMATICALLY  SELECTS  A  SET  OF  FASCODE  BOUNDARY 
LEVELS  WHICH  SATISFY  THE  FOLLOWING  TWO  TESTS: 

1.  THE  RATIO  OF  THE  VOIGT  HALFWIDTHS  BETWEEN  BOUNDARIES 
IS  LESS  THAN  OR  EQUAL  TO  AVTRAT,  AND 

2.  THE  TEMPERATURE  DIFFERENCE  BETWEEN  BOUNDARIES  IS 
LESS  THAN  OR  EQUAL  TO  TDIFF 

TOIFF  VARIES  FROM  TD1FF1  AT  HMIN  TO  TDIFF2  AT  HMAX, 

WITH  EXPONENTIAL  INTERPOLATION  BETWEEN 

THESE  BOUNDARIES  ARE  ROUNDED  DOWN  TO  THE  NEAREST  TENTH  KM 
NOTE  THAT  THESE  TESTS  APPLY  TO  THE  LAYER  BOUNDARIES 
NOT  TO  THE  AVERAGE  VALUES  FROM  ONE  LAYER  TO  THE  NEXT. 


COMMON  /mi/  IRD.IPR.IPU 

COMMON  /PARMTR/  PI .DEG.GCAIR , RE .DELTAS, ZMIN.ZMAX, IMAX, IMOD , IBMAX, 
1  IOUTMX , 1  PATH , I MODMX , I D IM , KDIM , KMXNOM , KMAX , NOPRNT 
COMMON  /CONSTN/  PZERO, T2ERO. AVOGAD .ALOSMT .GASCON, PLANK, BOLTZ, 

1  CL IGHT , AOCON , A  LZERO , AVMWT , A I RMWT , AMWT (20 ) , VMIXST (20) , VMIXN2 

C4  DOUBLE  PRECISION  HMOD 

COMMON  HMOD (3) , ZM(50) , PM(50) , TM(50) ,RFNDXM(50) ,DENM(20,50) 

COMMON  ZP(71),PP(71),TP(71).RFN0XP(71),SP(7I), 

1  PPSUM(71),TPSUM(7! ) , RH0PSM(7! ) , DENP( 20 , 71 ) , AMTP( 20,71 ) 

COMMON  Z(7t ),P(7t),T(71 ) ,RFNDX(71 ) , OENSTY( 20,71 ) 

COMMON  /BNDRY/  ZSND(34) ,P8ND(34) ,TBND(34) , AL0RNZ(34) , AD0PP(34) , 

1  AVOIGT ( 34) 

DIMENSION  AVTM(SO) 

FUNCTION  ZROUND  ROUNDS  THE  ALTITUDE  Z  DOWN  TO  THE 
C*..««NEAREST  TENTH  KM 

ZROUND(ZX)  «  0. 1 ‘FLOAT ( IFIX{ 1 O.O'ZX) ) 

C««.«* 

DO  100  IM*2 , IMOD 
I HMIN  *  IM 

IF( ZM( IM) . GT .HMIN)  GO  TO  120 
100  CONTINUE 
120  CONTINUE 
HTOP  =  HMAX 

IF(HTOP.GT.ZMAX)  HTOP  *  ZMAX 
IM  =  IHMIN-1 
ZZ  =  ZM(IM) 

CALL  HALFWD(ZZ,VBAR,P,T,AL.AD,AVTM(IM>) 

IB  *  1 

ZBND(IB)  «  HMIN 
IM  -  I HMIN 

CALL  HALFWO(ZBNO( IB) , VBAR ,PBNO( IB) ,TBND( IB) , ALORNZ( IB) , 
i  adopp(ib),avoigt(IB)) 

IB  =  2 
BEGIN  LOOP 
200  CONTINUE 
IPASS  =  0 
Z8NDII6)  =  ZM(IM) 

IF(ZBND(IB).GE.HTOP)  ZBMD(I3)  «  HTOP 

CALL  HAlFWD(ZBND( 13) , VBAR, PBND( IB) , T8ND( IB) ,ALORNZ( IB) , 

1  AOOPP( 18), AVOIGT (18)) 

AVTM(IM)  =  AVOIGT (IB) 

C..*..TEST  THE  RATIO  OF  THE  VOIGT  WIDTHS  AGAINST  AVTRAT 
I F( (AVOIGT ( IB-1 )/ AVOIGT (13)). LT. AVTRAT)  GO  TO  220 
C»*»..ZM(IM)  FAILS  THE  HALFWIDTH  RATIO  TEST 
IPASS  «  1 


045350 
045360 
'  045370 

045380 
045390 
045400 
045410 
045420 
04S430 
045440 
045450 
045460 
045470 
045480 
'  045490 

045500 
045510 
045520 
045530 
045540 
C4045550 
045560 
045570 
045580 
045590 
045600 
045610 
045620 
045630 
045640 
045650 
045660 
045670 
045680 
045690 
045700 
045710 
045720 
045730 
045740 
045750 
045760 
045770 
045780 
04579P 
045800 
045810 
045820 
0453310 
045840 
C45850 
045860 
045870 
045880 
045390 
045900 
045910 
045920 
045930 
0A5940 
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AVOIGT (IB)  »  AVOIGT(lB-1)/AVTRAT 

Z8ND( IB)  ..  ZM( IM-1 )  +  ( ZM( IM)-ZM( IM-1 ) )»ALOG( AVOIGT{ IB)/AVTM( IM-1 ) )/ 
t  ALOG(AVTM( IM)/AVTM( IM-1 ) ) 

IF(ZBNO(IB).NE.HTOP)  ZBNO(IB)  ■  ZROUND(ZBNO( IB) ) 

CALI  HALFWD(ZBNO(lB),VBAR,P8ND<IB),TBND(IB),ALORNZ(IB), 

1  ADOPP(IB), AVOIGT (IB)) 

220  CONTINUE 

<;•*♦. .TEST  THE  TEMPERATURE  DIFFERENCE  AGAINST  TDIFF 
FAC  *  (ZBNDUB-1 )-HMIN)/(HMAX-HMIN) 

CALL  EXPINT < TOI FF, TDI FF1 .TDIFF2, FAC) 

IF(ABS(TBND(1B)-TBND( IB-1 )).LE. TDIFF)  GO  TO  230 
C*«»»»Z8N0(!B)  FAILS  THE  TERPERATUHE  DIFFERENCE  TEST 
IPASS  *  2 

TBND(IB)  *  TBND(!8-1)+S!GN(T0IFF,TM(IM)-TM(IM-1)) 

ZBND(IB)  «  ZM( IM- 1 )  +  ( ZM( IM J-ZM( IM- 1 ) )• 

1  <TBND( IB)-TM( IM-1 ) )/( TM( IM)-TM( IM-1 ) ) 

IF(ZBND(IB) .NE.HTOP)  ZBND(IB)  •  ZROUND(ZBND( IB) ) 

CALL  HALFWO(ZBND(IB) . VBAR , PBND( IB) ,TBND( IB) .ALORNZ(IB) , 

1  AOOPP(IB),AVOIGT(IB)) 

230  CONTINUE 

IF(ZBND( IB) .GE.HTOP)  GO  TO  300 
IF( IPASS. NE.O)  GO  TO  240 

■•♦••BOTH  HALFWIDTH  AND  TEMPERATURE  TEST  PASS  FOR  ZBND(IB)  «  ZM(IM), 
••••NOW  TRY  ZBND(IS)  «  ZM( IM+1 ) 

IM  *  IM+1 
GO  TO  200 
240  CONTINUE 

C*****ONE  OF  THE  TESTS  FAILED  AND  A  NEW  BOUNDRY  ZBND  WAS  PRODUCED 
C*****TEST  FOR  THE  NEXT  BOUNDARY  AT  THE  PREVIOUS  ZM(IM) 

IB  =  18+1 

IF(IB.GT.IBMAX)  GO  TO  900 
GO  TO  200 
300  CONTINUE 
IBND  *  IB 

WRITE(IPR, 10)  AVTRAT.T0IFF1 .TDIFF2 
10  FORMAT ( /// , 1  FASCODE  LAYER  BOUNDARIES  PRODUCED  BY  THE  AUTOMATIC 

1  'LAYERING  ROUTINE  AUTLAY',/,'  THE  USER  SHOULD  EXAMINE 

2  'THESE  BOUNDARIES  ANO  MODIFY  THEM  IF  APPROPRIATE' ,/, 

3  '  THE  FOLLOWING  PARAMETERS  ARE  USED:’,//, 

4  1 0X ,  ' AVTRAT  =  \F8.2,'  •  MAX  RATIO  OF  VOIGT  WIDTHS',/, 

5  10X , ' T01FF1  »  ' , F8.2 , '  *  MAX  TEMP  OIFF  Al  HMIN' ,/, 

6  1 0X , ' TDIF F2  *  ' , F8.2, '  •  MAX  TEMP  DIFF  AT  HMAX ' ) 

RETURN 

900  CONTINUE 

WRITE; IPR, 901)  IBMAX 

901  FORMA r (///, '  ERROR  IN  AUTLAY: ',/ ,5X, ' THE  NUMBER  OF  ', 

1  'GENERATED  LAYER  BOUNDARIES  EXCEEDS  THE  DIMENSION  IBMAX  ', 

2  'OF  THE  ARRAY  ZBNO.  IBMAX  =  ',15,/, 

3  5X. 'PROBABLE  CAUSE:  EITHER  AVTRAT  AND/OF  TDIFF  ARE  TOO  SMALL’, 

4  /,5X,'THE  GENERATEO  LAYERS  FOLLOW') 

I3ND  *  IBMAX 

IERROR  «  5 

RETURN 

END 


045950 
045060 
045970 
045980 
045990 
046000 
046010 
046020 
046030 
046040 
046050 
046060 
046070 
046080 
046090 
046100 
0461 10 
046120 
046130 
046140 
046150 
046160 
046170 
046160 
046190 
04S200 
046210 
046220 
046230 
046240 
046250 
046260 
046270 
046280 
046290 
046300 
046310 
046320 
046330 
046340 
046350 
046360 
046370 
046380 
046390 
046400 
046410 
046420 
046430 
046440 
046450 
046460 
046470 
046480 


ooooooooo 


SUBROUTINE  HALFWD(Z,VBAR,P,T  ,  ALORNZ , ADOPP , AVOIGT ) 


GIVEN  AN  ALT1TU0E  Z  AND  AN  AVERAGE  WAVENUMBER  VBAR,  THIS 
SUBROUTINE  INTERPOLATES  P  ANO  T  FROM  THE  PROFILE  IN  ZM  AND 
CALCULATES  THE  LORENTZ,  THE  DOPPLER,  AND  THE  VOIGT  HALFWIOTHS 
(AT  HALFHEIGHT)  ALORNZ ,  AOOPP,  ANO  AVOIGT  RESPECTIVELY  FOR 
THE  ALTITUDE  Z 

AN  AVERAGE  LORENTZ  WIOTH  ALZERO  AND  AN  AVERAGE  MOLECULAR 
WEIGHT  AVMWT  ARE  ASSUMEO 


COMMON  /IF I L/  IRD.IPR.IPU 

COMMON  /PARMTR/  P I , OEG , GCA IR , RE , DELTAS , ZMIN , ZMAX , IMAX , IMOD , I BMAX , 
1  IOUTMX , I  PATH, IMODMX , IOIM , KDIM, KMXNOM , KMAX , NOPRNT 

COMMON  /CONSTN/  PZERO. TZERO, AVOGAO .ALOSMT .GASCON, PLANK, BOLTZ , 

I  CLIGHT , AOCON , ALZERO , AVMWT , AIRMWT , AMWT ( 20 ) , VMIXST ( 20) , VMI XN2 
CA  DOUBLE  PRECISION  HMOD 

COMMON  HM0D(3) , ZM( 50 ) , PM( 50) , TM(50 ) ,RFNDXM(50) , DENM(20 ,50) 

COMMON  ZP(71 ) , PP ( 7 1 ) , T P ( 7 1 ) ,RFNDXP(71 ) , S P ( 7 1 ), 

1  PPSUM(71),TPSUM(71),RH0PSM(71),DENP(20,7l),AMfP(20,71) 

COMMON  ZX(71 )  ,PX(71 )  ,TX(71 ) ,  RFNDX(  71  ),DENSTY(20,7.1) 

C.«». •FUNCTIONS  * 

C..»». ALZERO  IS  AT  1013. 2S  MB  AND  296.0  K 

ALPHAL(P.T)  •  A LZ£RO*(P/ PZERO)* SORT (296.0/T) 

ALPHAO(T.V)  •  AOCON*V*SQRT (T/AVMWT ) 

ALPHAV(AL.AO)  •  0 . S* ( AL+SQRT ( AL>*2+4 . 0<AD**2 ) ) 

C*  * • *  * 

00  100  12*2, IMOD 
IM  -  12 

IF(ZM(IM).GE.Z)  GO  TO  110 
100  CONTINUE 
IM  *  IMOD 
110  CONTINUE 

FAC  *  1Z-ZM(IM-1))/(ZM(!M)-ZM(IM-1)) 

CALL  EXPINT ( P, PM( IM-1 ) ,PM( IM) ,FAC) 

T  «  TM(IM-1 )  +  (TM( IM)-TM( IM-1 ) ) *  FAC 
ALORNZ  »  ALPHAL(P.T) 

ADOPP  =  ALPHAD(T.VBAR) 

AVOIGT  «  ALPHAV(ALORNZ, AOOPP) 

RETURN 

END 


046490 
'  046S00 

046510 
046520 
046530 
046540 
046550 
046560 
046570 
046580 
046590 
046600 
046610 
046620 
046630 
C&046640 
046650 
046660 
046670 
0466B0 
046690 
046700 
046710 
046720 
046730 
046740 
046750 
046760 
046770 
046780 
046790 
046600 
046810 
046820 
046830 
046840 
046850 
046860 
046870 
046880 
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Appendix  A 

Atmospheric  Profiles 

Six  atmospheric  profiles  are  included  in  FSCATM  as  a  convenience  to  the 
user.  These  profiles  consist  of  the  pressure  and  temperature,  and  the  number 
densities  of  HgO,  COg,  Og,  NgO,  CO,  CH^,  and  Og,  vs  altitude  at  1-km  steps 
from  0  to  25  km,  5-km  steps  from  25  to  50  km,  and  at  70  and  100  km.  These  pro¬ 
files,  taken  from  McClatchey  et  alA1  correspond  to  the  19d2  U.S.  Standard  Atmos¬ 
phere^  and  five  supplementary  models:^3  Tropical  <15°N),  Midlatitude  Summer 
(45°N,  July),  Midlatitude  Winter  (45°,  Jan),  Subarctic  Summer  (60°N,  July),  and 
Subarctic  Winter  (60  N,  Jan).  These  profiles  are  identical  to  the  ones  contained 
in  LOWTRAN. A4  The  water  vapor  and  ozone  altitude  profiles  added  to  the 
1962  U.S.  Standard  Atmosphere  by  McClatchey  et  alA^  were  obtained  from 
Sissenwine  et  alA3  and  Hering  et  alA3  respectively,  and  correspond  to  mean  annual 
values.  The  water  vapor  densities  for  the  1962  U.S.  Standard  Atmosphere  corre¬ 
spond  to  relative  humidities  of  approximately  50  percent  for  altitudes  up  to  10  km, 
whereas  the  relative  humidity  values  for  the  other  supplementary  models  tend  to 
decrease  with  altitude  from  approximately  80  percent  at  sea  level  to  approximately 
30  percent  at  10-km  altitude.  Above  12  km,  the  water-vapor  number  densities  of 
models  1  to  5  are  identical  and  represent  volume  mixing  ratios  that  reach  a  min¬ 
imum  of  about  6.  5  ppmv  at  17  km,  increase  to  30  ppmv  at  30  km,  and  then  decrease 

to  10  ppmv  at  50  km.  For  all  models,  the  gases  C09,  N„0,  CO,  CH and  0„ 

— —  &  c  4  2 

Because  of  the  large  number  of  references  cited  above,  they  will  not  be  listed  here. 
See  References,  page  139. 


are  considered  uniformly  mixed  with  volume  mixing  ratios  of  330,  0. 28,  0. 075, 
1.  6,  and  2.  095  X  105  ppm  respectively. 

The  temperature  profiles  as  a  function  ot  altitude  for  the  six  atmospheric 
models  are  shown  in' Figure  A 1.  Figure  A2  shows  the  water-vapor  density  vs 
altitude  for  0  to  100  km  and  an  expanded  profile  from  0  to  30  km.  Figure  A3 
shows  similar  profiles  for  ozone. 

In  the  almost  20  v-ears  since  these  profiles  were  constructed,  our  knowledge 
of  the  state  of  the  atmosphere  has  increased  enormously.  This  is  particularly 
true  regarding  the  stratosphere  and  above,  and  the  concentration  of  minor  con¬ 
stituents.  For  example,  the  stratospheric  water -vapor  concentrations  for  the 
six  profiles  given  here  are  now  known  to  be  too  large  by  a  factor  of  5  at  30  km. 
Models  1  through  6  may  still  be  considered  representative  of  their  respective 
conditions  up  to  about  50  km  for  temperature,  up  to  30  km  for  ozone  densities, 
and  up  to  the  tropopause  15  km  in  the  Tropics  to  8  km  in  the  Arctic)  for  water 
vapor.  Users  may  still  use  these  models  for  cases  dominated  by  the  conditions 
in  the  troposphere.  For  cases  dominated  by  stratospheric  conditions  or  where 
the  distribution  of  minor  constituents  is  significant,  the  user  should  supply  his 
own  profile  read  in  under  the  MODEL  =  7  option. 


Figure  Al.  Temperature  vs  Altitude  for  the  Six 
Model  Atmospheres 
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There  are  several  recent  sources  for  profiles  of  temperature  and  minor  con- 

47 

stltuent  density.  The  U.  S.  Standard  Atmosphere  1976  updates  the  1962  U.  S. 
Standard  Atmosphere  for  temperature  above  50  km  and  provides  revised  estimates 
for  the  surface  concentrations  of  what  was  termed  previously  ’’uniformly  mixed 
gases".  The  new  values  for  the  volume  mixing  ratios  of  C02,  NgO,  CO,  and  CH4 
are  322,  0.27,  0,  19,  and  1.50  ppmv  respectively.  These  values  are  used  as  the 
default  mixing  ratios  for  MODEL  =  7  if  the  user-supplied  values  are  zero.  Actually 
the  concentration  of  these  gases  do  show  significant  variations  from  these  values, 
particularly  with  altitude  in  the  stratosphere. 

Cole  and  Kantor^®  provide  sets  of  monthly  mean  temperature  profiles  up  to 
90  km  at  15°  intervals  between  the  Equator  and  the  pole.  Along  with  statistics 
on  the  variability  of  these  profiles,  they  also  provide  model.':  that  portray  the 
longitudinal  variations  in  monthly  mean  values  of  temperatu-  e  during  winter  months 
and  the  vertical  variation  which  occurs  during  stratospheric  warming  and  cooling 

A  Q 

events  in  the  winter  arctic  and  subarctic.  Houghton  provides  seasonal  profile 

temperature  at  10°N,  40°N  and  70°N  up  to  105  km  plus  the  original  references  for 

the  data  (this  by  the  way  is  a  marvelous  little  book  that  I  strongly  recommend  as 

both  an  introduction  and  a  refresher  in  atmospheric  physics). 

For  profiles  of  the  minor  constituants  including  ozone  and  stratosphere  water 
A 10 

vapor,  Hudson  et  al  provides  an  up-to-date  (June  1931)  and  exhaustive  source. 
This  volume  is  available  from 

Stratospheric  Chemistry  and  Physics  Branch 
Code  963 

NASA  Goddard  Space  Flight  Center 
Greenbelt,  MD  20771 

or 

Word  Meteorological  Center 
Case  Postule  No,  5 
Geneva  20,  Switzerland 

Much  of  the  profile  data  from  this  source  plus  some  more  recent  measurements 

All 

have  been  compiled  as  annual  averages  in  2  km  steps  in  Smith. 

A 12 

Finally  a  new  edition  of  the  Handbook  of  Geophysics  is  in  preparation, 
which  will  include  seasonal  profiles  of  temperature,  water  vapor,  and  ozone  plus 
a  wealth  of  other  data.  Tnis  volume  should  be  available  in  1984. 


Because  of  the  large  number  of  references  cited  above,  they  will  not  be  listed  here. 
See  References,  page  139. 
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Appendix  B 


Index  of  Refraction 


The  expression  for  the  index  of  refraction  of  air  is: 


n  -  1  =  10"6  X  (77.  46  +  0. 479  X  10'8  *v2)  X  Z 


■pT—  *  <43.49  -  0.347  X  10"8  v2) 
o 


where  r"  is  the  wavenumber,  c  is  the  speed  of  light,  P  and  T  the  pressure  and 
temperature, 

Ph2°  is  the  water-vapor  partial  pressure,  and  Pq  is  1013.25  mb. 

This  expression  is  the  same  as  is  in  the  program  LOWTRANB1  and  is  a  simplified 

E2 

version  of  the  expression  by  Edlen.  For  further  references  on  the  index  of 
refraction  of  air,  the  reader  is  referred  to  References  B3  and  B4. 


Bl.  Kneizys,  F.X.,  Shettle,  E.  P.,  Gallery,  W.  O. ,  Chetwynd,  J.H.,  Jr., 
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Atmospheric  Transmittance/Radiance:  Computer  Code  LOWTRAN  5. 
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PREVIOUS  PAGE 
IS  BLANK 


Appendix  C 

A  Brief  Survey  of  the  Literature 

The  subject  of  air  mass  calculation  and  the  associated  subject  of  astronomical 
refraction  go  back  to  Laplace  and  have  generated  a  large  body  of  literature.  This 
brief  survey  is  meant  only  to  point  out  a  few  references  to  which  the  Interested 
reader  can  turn  to  for  further  references. 

The  theory  of  atmospheric  refraction  and  of  air  mass  calculation  is  discussed 
in  some  detail  in  Kondratyev,  K.  (1969)  Radiation  in  the  Atmosphere,  Academic 
Press,  New  York,  Chapter  4  and  in  Zuev,  V.  E.  (1982)  Laser  Beams  in  the 
Atmosphere,  Consultants  Bureau,  New  York,  Chapter  1. 

The  following  paper  has  a  fairly  extensive  list  of  references  on  the  calculation 
of  air  mass  along  with  graphs  showing  the  effect  of  neglecting  refraction  for 
occultation  geometries:  Sneider,  D.  (1975)  Refractive  effects  in  remote  sounding 
of  t’le  atmosphere  with  infrared  transmission  spectroscopy,  J.  Atmos.  Sci.  32: 
2178-2184.  ~~~~  “  ~~ 

Essentially  the  same  paper  but  with  tables  of  air  mass  for  observer  altitudes 
ranging  from  10  to  50  km  in  steps  of  1  km,  with  zenith  angles  ranging  from  80°  to 
97°  is  Sneider,  D.  E. ,  and  Goldman,  A.  (1974)  Refractive  Effects  in  Remote  Sens¬ 
ing  of  the  Atmosphere  With  Infrared  Transmission  Spectroscopy,  Ballistic  Res. 
Labs,  Report  1790,  Aberdeen  Md,  OTIC  No.  AD-A011253. 

A  more  recent  paper  with  references  is  Wang,  P.  -H. ,  Deepak,  A.,  and 
Hong,  S.  -S.  (1981)  General  formulation  of  optical  paths  or  large  zenith  angles  in 
the  earth's  curved  atmosphere,  J.  Atmos.  Sci.  38:650-658. 
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One  of  the  earliest  tabulations  of  air  mass  was  by  Bemporad  and  is  reprinted 
in  List,  R.  J.  (1968)  Smithsonian  Meteorological  Tables  (6th  Revised  Edition), 
Smithsonian  Institute  Press,  Washington. 

In  the  case  where  refraction  can  be  neglected  and  where  the  density  profile 
is  exponential,  the  air  mass  can  be  calculated  analytically  using  the  "Chapman 
function".  The  original  reference  is  Chapman,  S.  (1931)  The  absorption  and 
dissociative  or  ionizing  effect  of  monochromatic  radiation  in  an  atmosphere  on  a 
rotating  earth  II,  Grazing  incidence,  Proc.  Phys.  Soc.  (London)  43:483-501. 

Since  then  numerous  simplifications  and  approximations  to  the  Chapman  func¬ 
tions  have  appeared.  Among  them  are:  (1)  Fitzmaurice,  J.  A.  (1964)  Simplifica¬ 
tion  of  the  Chapman  function  for  atmospheric  attenuation,  Appl.  Opt.  3:640; 

(2)  Swider,  W. ,  Jr.,  and  Gardner,  M.  E.  (1967)  On  the  Accuracy  of  Certain 
Approximations  to  the  Chapman  Functions,  AFCRL-67-0468,  AD  658826; 

(3)  Swider,  W.,  Jr.,  and  Gardner,  M.  E.  (1969)  On  the  accuracy  of  Chapman 
function  approximations,  Appl.  Opt.  3:1725;  and  (4)  Smith,  F.  L.  Ill,  and 
Smith,  C.  (1972)  Numerical  evaluation  of  Chapman's  grazing  incidence  integral, 

Ch  (x, 0),  J.  Geophys.  Res.  77:3592-3597. 

An  analytic  approximation  to  the  calculation  of  air  mass  that  includes  the 
effect  of  earth's  curvature  and  refraction  is  in  Uplinger,  W.  G.  (1981)  A  Simple 
Model  for  Relative  Air  Mass,  in  preprint  volume  for  the  Fourth  Conference  on 
Atmospheric  Radiation,  June  1981,  Toronto,  Canada  (American  Meteorological 
Society). 

The  case  in  which  the  density  scale  height  varies  with  altitude  (that  is,  tem¬ 
perature)  is  discussed  in  Swider,  W. ,  Jr.  (1964)  The  determination  of  the  optical 
depth  at  large  solar  zenith  distances.  Planet  Space  Set,  12:761-782. 

Another  method  for  dealing  with  non-exponential  density  distributions  is  found 
in  Green,  A.  E.  S. ,  and  Martin,  J,  D.  (1966)  A  generalized  Chapman  Function, 

The  Middle  Ultraviolet:  Its  Science  and  Technology,  A.E. S.  Green,  Ed.,  Wiley, 
New  York,  pp  140-157. 

The  following  paper  applies  the  Chapman  function  to  a  solar  occultation  meas¬ 
urement  of  the  absorption  by  trace  gases  in  the  stratosphere:  Menzies,  R.  J. , 
Rutledge,  C.W.,  Zanteson,  R.A.,  and  Spears,  D.  L.  (1981)  Balloonborne  laser 
heterodyne  radiometer  for  measurements  of  stratospheric  trace  species, 

Appl.  Opt.  20:536-544. 

Astronomical  refraction  refers  to  the  bending  of  a  ray  along  a  path  from  an 
observer  to  a  very  distant  source  outside  the  atmosphere,  for  instance  a  star. 

The  effect  was  recognized  in  ancient  times  and  is  still  the  subject  of  active  investi¬ 
gation  among  astronomers.  The  following  paper  gives  a  review  of  the  subject  plus 
an  extensive  list  of  references:  Mahan,  A.  I.  (1962)  Astronomical  refraction  - 
some  history  and  theories,  Appl.  Opt.  4:497-511. 


The  following  report  gives  an  even  more  complete  derivation  of  the  mathe¬ 
matics  of  refraction  plus  extensive  references  covering  refraction  of  visible,  IR, 
and  radio  waves:  Meyer-Arendt,  J.  R.,  and  Emmanuel,  C.  B.  (1965)  Optical 
Scintillation,  a  Survey  of  the  Literature,  National  Bureau  of  Standards  Tech  Note 
225. 

AnalyU.  solutions  for  astronomical  refraction  for  several  vertical  distribu¬ 
tions  of  the  refractive  index  are  given  in  White,  R.  (1975)  New  solutions  to  the 
refraction  integral,  J,  Opt,  Soc.  Am.  65:676-678. 

Terrestrial  refraction  applies  to  cases  in  which  the  whole  path  lies  near  the 
surface  of  the  earth  and  is  of  importance  in  geodesy  and  surveying.  A  recent 
volume  devoted  to  both  astronomical  and  terrestrial  refraction  is  Tengstrom,  E. , 
and  Teliki,  R.,  Ed.  (1979)  Refractional  Influences  in  Astronomy  and  Geodesy, 

IAU  Symposium  No.  89,  D.  Reldel  Publishing  Co. ,  Holland. 

The  following  report  describes  an  atmospheric  ray  tracing  computer  program 
capable  of  handling  complex  problems  such  as  mirages  and  ducting,  for  fre¬ 
quencies  from  the  microwave  to  the  visible:  Able,  M. ,  Mill,  J.  D. ,  and  Lenn,  L. 
(1982)  The  Theory  and  Use  of  a  Raytracing  Model  Developed  at  USAFETAC., 
USAFETAC-TN-82-002. 

Since  this  report  went  to  press,  the  following  two  papers  have  come  to  my 
attention:  Thompson,  D. A.,  Pepin,  T.  J.,  and  Simon,  F, W.  (1982)  Ray  tracing 
in  a  spherically  symmetric  atmosphere,  J.  Opt.  Soc.  72:1498-1501  and 
Chu,  W.  P.  (1983)  Calculation  of  atmospheric  refraction  for  spacecraft  remote¬ 
sensing  applications,  Appl.  Opt.  22:721-725. 
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